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Vorwort 


Dieses Buch gibt eine Einführung in die Programmiersprache BASIC. Vom Leser 
werden weder Programmierkenntnisse noch andere Erfahrungen im Umgang 
mit Computern erwartet. 


BASIC ist die im Bereich der Mikrocomputer gebräuchlichste Programmier- 
sprache, insofern sind die Inhalte dieses Buches auch auf andere Rechner über- 
tragbar. Wer das Buch durchgearbeitet und verstanden hat, sollte damit keine 
Schwierigkeiten haben. Für den Programmieranfänger ist es aber erfahrungs- 
gemäß einfacher, BASIC an einem konkreten Rechnertyp zu lernen. Das BASIC 
der hier behandelten SHARP-Computer PC-1246/47, PC-1251, PC-1260/61, 
PC-1350 und PC-1401 ist im wesentlichen das gleiche, ebenso die auf BASIC 
bezogene Bedienung. 


Das vorliegende Buch ist als Einführung in den Umgang mit diesen Rechnern 
gedacht, es soll nicht mit den Bedienungshandbüchern des Rechnerherstellers 
konkurrieren. Ein erfahrener Programmierer wird diese als Nachschlagewerke 
vorziehen. Systematisch aufgebaute Bedienungshandbücher sind aber als Ein- 
führung für Programmieranfänger ungeeignet. 


Leser mit Programmiererfahrungen könnten allerdings an den zahlreich einge- 
streuten Anwendungsbeispielen Interesse haben, die vor allem aus dem mathe- 
matisch-naturwissenschaftlich-technischen Bereich stammen. 


Als eine rechnerbezogene Einführung in BASIC geht das Buch nur auf solche 
Dinge ein, die allen im Titel genannten Rechnern gemeinsam sind. Dagegen 
werden spezielle Möglichkeiten einzelner Rechner, die diese für den Benutzer 
vielleicht erst attraktiv gemacht haben, hier nicht behandelt, wie z.B. 


die Verwendung des PC-1401 als Taschenrechner, 

die Graphik-Befehle des PC-1350, 

das “Easy Simulation Program’”’ (ESP) des PC-1260/61, 

die Besonderheiten mehrzeiliger Anzeigefehler beim PC-1260/61 und 
PC-1350. 


Wir verweisen dazu auf die jeweilige Bedienungsanleitung. 


Wir danken Herrn Prof. Dr. H. H. Gloistehn für die freundliche Unterstützung 
und den Mitarbeitern des Vieweg-Verlags für gute Zusammenarbeit. 


Hamburg, im Februar 1985 H. Kreth 
C. P. Ortlieb 
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1 Manuelles Rechnen 


Die SHARP-Taschencomputer können als gewöhnliche nicht-programmierbare 
Taschenrechner eingesetzt werden. Der nachfolgende Abschnitt über das 
manuelle Rechnen soll Sie mit ihrem Rechner vertraut machen und auf die 
folgenden Abschnitte über die Programmierung vorbereiten. Aus diesem 
Grund behandeln wir in diesem Buch das manuelle Rechnen für den PC-1401 
nur in der Betriebsart RUN. Der Einsatz des PC-1401 als „‚wissenschaftlicher 
Rechner” wird in diesem Buch nicht besprochen. 


1.1 Tastatur und Eingaberegister 


Die Tastatur des SHARP-Taschencomputers besteht aus Tasten für die Buch- 
staben A, B, ..., Y, Z des Alphabets, für die Ziffern ®, 1, .... 9 und für sonstige 
Schriftzeichen (z.B. *, \, $). Weiterhin gibt es eine Reihe von Tasten, die für 
den Rechnerbetrieb benötigt werden (z.B. [et], P ). 

Die Bedeutung der einzelnen sonstigen Schriftzeichen und der speziellen 
Tasten werden wir an den Stellen kennenlernen, an denen wir sie erstmalig 
benötigen. Die Anordnung der Buchstaben auf der Tastatur entspricht der 
Zeichenaufteilung einer Schreibmaschine. Bitte beachten Sie, daß der Buch- 
stabe O nicht mit der Ziffer ® verwechselt werden darf. 

Wenn Sie Ihren Rechner im RUN-Mode eingeschaltet haben, erscheint im 
Anzeigefeld links das Zeichen >, das die Betriebsbereitschaft signalisiert. 

Die Anzeige DEG, RAD oder GRAD gibt an, in welcher Form Winkel ver- 
arbeitet werden, und zwar DEG für die 360°-Aufteilung, RAD für Bogenmaß 
und GRAD für die 400°-Aufteilung. Der Betriebszustand für die Winkelver- 
arbeitung wird dadurch verändert, daß die Buchstabenkombinationen 
DEGREE, RADIAN oder GRAD eingetippt werden und die -Taste 
gedrückt wird. 





Eingabe Betriebszustand Winkeleinheit 


DEGREE [ENTER Grad (Altgrad, °) 


RADIAN [ENTER Radiant (Bogenmaß, rad) 
GRAD ENTER Gon (Neugrad, gon) 





Der Rechner schreibt eingetippte Buchstaben, Ziffern und sonstige Schrift- 
zeichen von links nacheinander in ein Fingaberegister, dessen Inhalt im An- 
zeigefeld sichtbar ist. Der Inhalt des Eingaberegisters kann durch Drücken der 
roten -, - bzw. [C: CE]-Taste gelöscht werden. Die Bedienung der 
[ENTER]-Taste bewirkt, daß der Inhalt des Eingaberegisters je nach Betriebs- 
art zur weiteren Bearbeitung an den Rechner übergeben wird. Als Beispiel ha- 
ben wir die Wahl der Winkeleinheit kennengelernt. Der sogenannte Cursor 
zeigt im Anzeigefeld den Platz im Eingaberegister an, der durch das nächste 
einzutippende Zeichen belegt wird. Im bereits beschriebenen Teil kann man 
zu Korrekturzwecken den Cursor verschieben. Die [4]-Taste bewirkt eine 
Cursor-Verschiebung um einen Platz nach links, die [®] -Taste um einen Platz 
nach rechts. Bei einer Rechtsverschiebung bleibt der Cursor auf dem ersten 
unbeschriebenen Platz des Eingaberegisters stehen. Bereits eingegebene Zeichen 
können durch andere Zeichen überschrieben werden. 


Beispiel: Das Wort Taschenrechner soll eingegeben und dann durch das Wort 
Taschencomputer ersetzt werden. 


> 


TASCHENRECHNER TASCHENRECHNER_ 


IRRE El I] El! TAscHenMmRECcHNER 


COMPUTER TASCHENCOMPUTER_ 





Das Anzeigefeld hat zwischen 16 Zeichen (PC-1246/47 und PC-1401) und 96 
Zeichen (PC-1350). Dagegen kann man in das Eingaberegister stets ungefähr 
80 Zeichen eintippen. Geben Sie mehr Zeichen an, als Ihr Anzeigefeld faßt, so 
werden die Zeichen in der Anzeige schrittweise nach links verschoben. Durch 
Cursor-Verschiebungen können Sie jeden beschriebenen Bereich des Eingabe- 
registers im Anzeigefeld sichtbar machen. 

Eine Reihe von Tasten Ihres Rechners sind doppelt belegt. Die über der jeweili- 
gen Taste in roter Schrift angegebene zweite Belegung erreichen Sie, indem 

Sie erst die gelbe -Taste und dann die Taste mit dem angegebenen 
Zeichen drücken. Die Benutzung der -Taste wird jeweils angezeigt. 


Beispiel: Die Zahl 


> 
SHIFT >SHIFT (oben) 


16 Lu 


ENTER 3.141592654 





In Zukunft wollen wir voraussetzen, daß die [SHIFT]-Taste richtig ange- 
wandt wird und nur die Zweitbelegung selbst hinschreiben. Für Lu 
schreiben wir also kurz z. 

Zum Abschluß des etwas trockenen Abschnitts über die Bedienung des Rech- 
ners wollen wir noch eine spezielle Taste besprechen. Die [SPC] -Taste erzeugt 
im Eingaberegister ein Leerzeichen, d.h. der Cursor wird am Anzeigefeld um 
eine Stelle nach rechts verschoben, ohne daß ein Zeichen erzeugt wird. Mit 
Hilfe des Leerzeichens, das wir durch Li beschreiben wollen, lassen sich Worte 
oder Zahlen trennen. 


Beispiel: Das Wort SHARP PC-1246 soll eingegeben werden 


> 














SHARP SHARP _ 
SHARPU_ 





PC-1246 SHARPLIPC- 1246 _ 





Aufgabe 1: Geben Sie folgenden Text in das Eingaberegister ein: 

Der ‘SHARP PC-1246” ist ein BASIC-programmierbarer Taschenrechner. 
Bringen Sie den Cursor an die erste Zeichenstelle und lassen Sie ihn den Text 
durchlaufen. 


Bemerkungen: Spezialtasten werden bei anderen Rechnerfabrikaten eventuell 
anders bezeichnet, ihre Funktion ist aber prinzipiell gleich. Weiterhin gibt es 
bei anderen Rechnern dreifach belegte Tasterı, so daß zwei Tasten vom 


Typ |SHIFT | vorhanden sein müssen. 
1.2 Zahlen 


Ihr Rechner kann Zahlen der Form 
| A.BIEP bzw. A.BEP 


verarbeiten. Dabei ist A.B eine mit einem Vorzeichen versehene Dezimalzahl 
mit ganzzahligem Anteil A und gebrochenem Anteil B. Zur Trennung des 
ganzen und gebrochenen Teils wird der Punkt und nicht das Komma ver- 
wendet. Die Dezimalzahl A.B heißt Mantisse. Die Zeichenfolge IEP bzw. EP 
bedeutet Multiplikation der Mantisse mit 10”. Die Rechner PC-1246/47 und 
PC-1251 verwenden hier ein eigenes Symbol IE, die anderen dagegen den Buch- 
staben E. Der Zehnerexponent ist eine maximal zweistellige ganze Zahl, d.h. 

es ist -99<P<99. IstB=P=P, so erhält man ganze Zahlen. 


Um die Ein- und Ausgabe von Zahlen kennenzulernen, schalten Sie bitte Ihren 
Rechner auf die Betriebsart RUN. 


Eingabe von Zahlen 
Die Eingabe von Zahlen erfolgt in der besprochenen Form A.BEP, wobei das 


Zeichen E durch die -Taste, Vorzeichen durch und [=] erzeugt 
werden. Folgende Regeln gelten für die Eingabe: 


a) Positive Vorzeichen können weggelassen werden. 
+A.BE +P = A.BEP 
b) Ist P=, so kann Ef weggelassen werden. 


A.BEß = A.B 


c) Ist B=ß, so kann die Null und der Dezimalpunkt weggelassen werden. 


A.dEP = AEP 
d) Ist A=ß, so kann die Null vor dem Dezimalpunkt weggelassen werden. 
®.BEP = .BEP 


e) Führende Nullen vor dem Dezimalpunkt und nachrangige Nullen nach dem 
Dezimalpunkt können weggelassen werden. 


BBA.BÖPBEP = A.BEP 


f) Ist in der Mantisse A.B die Länge zwischen der ersten und letzten von Null 
verschiedenen Ziffer größer als 10, so werden die elfte und alle nachfolgen- 
den von Null verschiedenen Ziffern rechnerintern nicht berücksichtigt. Es 
ist daher nicht sinnvoll, Dezimalzahlen A.B einzugeben, deren erste und 
letzte von Null verschiedene Ziffern um mehr als 1 Stellen auseinander- 
stehen. Weiterhin ist es nicht sinnvoll, P größer als 99 einzugeben. 

g) Leerzeichen bei der Zahleneingabe werden überlesen. Man kann also eine 
Null nicht durch ein Leerzeichen darstellen. 


Rechnerinterne Darstellung von Zahlen 

Im Eingaberegister stehende Zahlen werden mit Hilfe der -Taste zur 
weiteren Verarbeitung an den Rechner gegeben. Dabei werden sie aus Gründen, 
die wir hier nicht besprechen können, stets in die normierte Gleichpunktform 
umgewandelt. In der normierten Gleitpunktform einer Zahl ist A eine mit 
einem Vorzeichen versehene Ziffer zwischen 1 und 9. Für den Exponenten P 
gilt wiederum -99<P<(99. Die betragsmäßig größte Zahl, die der Rechner 
verarbeiten kann, ist somit 


9.9999999991E99. 


Ist in der normierten Gleitpunktform P >99, so zeigt Ihnen der Rechner 
diesen sogenannten “overflow“’ in der Anzeige durch die Fehlermeldung 

ERROR2 oder ERRORS9 an. 

Die Bedeutung der einzelnen Fehlermeldungen entnehmen Sie bitte dem 
Bedienungshandbuch. 
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Ist in der normierten Gleitpunktform P<- 99, so wird die Zahl zu Null ge- 
setzt. Die betragsmäßig kleinste positive Zahl ist somit 


1.E-99. 


Alle rechnerinternen Zahlen besitzen zur Vermeidung von Rundungsfehlern 
(siehe Abschnitt 1.6) zwei Schutzstellen, d.h. ihre Mantissenlänge umfaßt 
nicht 19, sondern 12 Ziffern. Bei eingegebenen Zahlen sind die Schutzstellen 
mit ß besetzt. 


Ausgabe von Zahlen 
Rechnerinterne Zahlen werden im Anzeigefeld nach folgenden Regeln ausge- 
geben: 


a) Rechnerinterne Zahlen werden vor der Ausgabe durch Rundung auf die 
Mantissenlänge 1® gekürzt. 

b) Zahlen werden rechtsbündig angezeigt. 

c) Positive Vorzeichen werden weggelassen. 

d) Der Dezimalpunkt wird stets gesetzt. 

e) Stimmt die gerundete rechnerinterne Zahl mit einer Dezimalzahl A.B über- 
ein, deren Mantissenlänge ohne führende Nullen vor dem Punkt und nach- 
rangige Nullen nach dem Punkt nicht größer als 19 ist, so wird die Dezimal- 
zahl A.B ohne Exponent angegeben. Im Fall A = @ zählt eine Null vor dem 
Komma zur Mantisse. 

f) Trifft e) nicht zu, so wird die normierte Gleitpunktform mit 1ß-stelliger 
Mantisse angegeben, wobei im Fall P= ß der Exponent weggelassen wird. 


Beispiele: Bei den nachfolgenden Ein-Ausgabebeispielen wird die Weitergabe 
einer Zahl aus dem Eingaberegister an den Rechner durch die -Taste 
und die Löschung einer Zahl durch die [CL]-Taste nur beim ersten Beispiel 
mitgeschrieben, im weiteren dann weggelassen. 

















Eingabe normierte Gleitpunktform Ausgabe 
B.012E4 + 1.20PBAPAADE +92 | 120. 
- 123E - 8 - 1.230000000E -d6 | - B.00000123 | 
— 123459.BE — 8 — 1.2345ßP000E - 03 - 8.0012345 | 
- .900123E — 8 - 1.2300BBDWBE - 12 |-1.23E - 12 

. 111222333444 + 1.112223334E — 91 1.112223334E - 91 | 
11123 + 1.2300d9A00E + 02 123. 











Aufgabe 2: Die in der Tabelle aufgelisteten Zahlen sollen eingegeben werden. 
Überlegen Sie sich die normierte Gleitpunktform und die zu erwartende Aus- 
gabe. Überprüfen Sie Ihre Ausgabeerwartung am Rechner. 


B.3030303039 
B.0303030303 
5483 

B.05483E - 98 
548.3E98 








Aufgabe 3: Finden Sie den Fehler in dem folgenden Satz: Zahlen, deren 
Betrag größer 999999999 oder kleiner B.dP@000901 ist, werden immer in 
der normierten Gleitpunktform angezeigt. 


Bemerkung: Die normierte Gleitpunktform einer Zahl ist für verschiedene 
Rechnerfabrikate nicht einheitlich. Zum einen können sich die Mantissen- 
länge und der Bereich für den Zehnerexponenten unterscheiden, zum anderen 
kann in der normierten Form der Dezimalpunkt um eine Stelle nach links 
gesetzt sein. 


1.3 Rechnen mit Zahlen und Funktionen 


Für diesen Abschnitt ist der Rechner wieder auf RUN-Mode zu stellen. 

Zwei reelle Zahlen a und b kann man durch Addition, Subtraktion, Multiplika- 
tion, Division und Exponentiation miteinander kombinieren. Solche Kombina- 
tionen können in das Eingaberegister des Rechners eingetippt werden. Die Zu- 
ordnung von Tasten zu mathematischen Operationen ist aus der folgenden 
Tabelle ersichtlich: 


Mathematische Operation 
atb 





Bitte erinnern Sie sich, daß Sie die |SHIFT|-Taste drücken müssen, um das 
Symbol \ zu erreichen. 


Gibt man eine Kombination von zwei Zahlen durch Drücken der |ENTER]- 
Taste an den Rechner weiter, so wird das Ergebnis ausgerechnet und angezeigt. 


2.5 
-9.1 

1.56 

9.239769231E - 91 
1.267463962 











Alle uns vertrauten Handrechnungen mit mehr als zwei Zahlen lassen sich 
auch auf unserem Rechner durchführen, wobei die Rechenregeln, wie z.B. 
Vorzeichenregeln oder Klammerregeln, erhalten bleiben. Bei der Übertragung 
in Rechnerschreibweise können dabei allerdings Schwierigkeiten auftreten. 
Die mathematisch unterschiedlichen Zahlenkombinationen 


= und = ‘c 

ergeben gleiche Rechnerausdrücke, nämlich A/B * C. 

Unser Computer berechnet durch die Eingabe A/B * C den Wert 5 “c. Um 
auch den Wert ee zu erhalten und um ähnliche Zweifelsfälle zu behandeln, 
müssen wir dem Rechner mitteilen können, in welcher Reihenfolge er kompli- 
ziertere Zahlenkombinationen ausrechnen soll. Das Hilfsmittel hierzu liefert 
uns die Mathematik selbst in Form der Klammerrechnung. 

Tritt in einem Zahlenausdruck ein Klammerpaar auf, so wird zunächst der 
Wert in dem Klammerpaar berechnet und der Ausdruck zwischen den Klam- 
mern durch diesen Wert ersetzt. Bei verschachtelten Klammerausdrücken 
wird von innen nach außen gerechnet. Wir können also jetzt 


BE und 


"c 


unterscheiden durch 
A/B*C) und (A/B) *C. 


Alle übrigen, sich aus den Rechenregeln für reelle Zahlen ergebenden Rang- 
ordnungen bei der Auswertung von Zahlenkombinationen sind auch in Ihrem 
Rechner gültig. 

Die Verknüpfung reeller Zahlen durch +, -, *, / oder A wollen wir von nun 
an einen arithmetischen Ausdruck nennen. 

Der Rechner richtet sich bei der Auswertung eines eingetippten, im Eingabe- 
register stehenden arithmetischen Ausdruckes nach der in der folgenden 
Tabelle angegebenen Priorität. Mathematische Operationen aus einer Gruppe 
mit niedriger Priorität werden vor Operationen mit höherer Priorität ausge- 
führt. 


Priorität Mathematische Operation 





Klammern () 

Exponentiation A 

Berücksichtigung der Vorzeichen +, — 
Multiplikation * und Division / 
Addition + und Subtraktion — 








Es wurde bereits erwähnt, daß mit A/B * C der Ausdruck rn - c berechnet 
wird. Mehrere nebeneinander stehende Multiplikationen und Divisionen 
arbeitet der Rechner von links nach rechts ab. Die mehrfache Exponentiation 
wird dagegen von rechts nach links berechnet, d.h. es ist AABAC=AA (BAC). 
Einen arithmetischen Ausdruck sollten Sie daher immer so schreiben, daß es 
für Sie bezüglich der Auswertung keinen Zweifel gibt. Ein zuviel gesetztes 
Klammerpaar schadet nicht, ein vergessenes Klammerpaar kann aber zu nicht 
beabsichtigten Rechnungen führen. 

In mathematischen Formeln kann vor Klammern der Multiplikationspunkt 
weggelassen werden, dagegen muß in arithmetischen Ausdrücken an diesen 
Stellen das Symbol * immer gesetzt werden. Schließlich bedenken Sie bitte, 
daß die Exponentiation A A B bei nicht ganzzahligem Exponenten B nur für 
positive Basis A definiert ist. 

Ist der Rechner aufgrund eines Regelverstoßes nicht in der Lage, einen einge- 
gebenen arithmetischen Ausdruck auszuwerten, so erfolgt die Fehlermeldung 
ERROR1 oder ERROR2. 


Beispiele: 











Mathematischer Ausdruck Arithmetischer Ausdruck Ausgabe 





7/2(2 +3) ERROR 1 


DINDIN 


(2+3) 7/2*(2+3) 17,5 
7 * 

mas 712*(2 +3) 0.7 
7 

2 712/12 +3) 0.7 


& rn (1.25? - 0.75?) 4/3*n*(1.2513-0.7513) | 6.414085001 


0.5-0.2(0.3+08.1(07-0.9)) | 0.5-0.2*(0.3+0.1*(0.7-0.9))| 0.444 





2? -3?2 2Nn2-3N2 -5, 

2(2-3)? 2*(2-3) 2 2. 

2(3- 2)? 2*(3-2)12 2. 

-0,53- 7 -0.51(3-m) -1.103122228 
-0.5°-r -0.513-7 - 3.266592654 
-0.5%°-7 (-0.5) A05-r ERROR 2 





Aufgabe 4: Berechnen Sie den Funktionswert 


K=1 1/2 
vn (1x ] 


für k =1.4 und x =9.75. 





Aufgabe 5: Ein beiderseits gelenkig geführter Stab ist bis zur Kraft 





FL = a2 EI 
KT 12 
belastbar ohne auszuknicken. Für einen quadratischen Querschnitt ist I=— a, 


12 
für Stahl ist E = 2.1: 107 N/cm?. Berechnen Sie die Knickkraft für a = 3.5cm 


und / = 15ßcm. 

Hat Ihr Computer einen arithmetischen Ausdruck ausgerechnet und das Ergeb- 
nis angezeigt, so können Sie mit der ausgegebenen Zahl direkt weiterrechnen. 
Auf diese Art und Weise kann man Zwischenergebnisse berechnen. Bei der- 
artigen fortlaufenden Rechnungen dürfen Sie natürlich nicht die -Taste 
drücken. Bitte denken Sie auch daran, daß bei jeder Ausgabe einer rechner- 
internen Zahl die beiden Schutzstellen (siehe Abschnitt 1.2) verlorengehen. 


Beispiel: Volumen und Masse einer Kugel vom Radius r = 11.32cm und 
Dichte p = 7.5 g/cm? sollen angegeben werden. Es gilt 


V=inr? und m=p:'V 


4/3 * n * 11.32 A 3 [ENTER 6976.141651 
* 7.5 |ENTER 45571.06238 





V = 6.076 dm® m = 45.571 kg 


Beispiel: Die Berechnung von 100/3-33 liefert unterschiedliche Ergebnisse, je 
nachdem man das Zwischenergebnis 100/3 anzeigen läßt oder nicht. 





Eingabe Ausgabe 
100/3-33 [ENTER 3.333333333E-01 


100/3 [ENTER 33.33333333 
-33 EI 0.33333333 


Die unterschiedlichen Ergebnisse kommen dadurch zustande, daß beim zweiten 
Mal die beiden Schutzstellen wegfallen. 


Programmierbare und nicht-programmierbare Rechner sind zumeist in der Lage, 
gewisse mathematische Standardfunktionen direkt berechnen zu können. 
















Diese Möglichkeit ersetzt die umfangreichen Funktionstafeln, aus denen man 
bis vor nicht allzu langer Zeit Werte für spezielle Funktionen heraussuchen 
mußte. Die in Ihrem Rechner zur Verfügung stehenden Grundfunktionen 
können wie Zahlen in arithmetische Ausdrücke eingebaut werden. Die Argu- 
mente X der Funktionen dürfen selbst wieder arithmetische Ausdrücke sein, 
so daß ohne Schwierigkeiten ineinander verschachtelte Funktionen ausge- 


wertet werden können. 


Die nachfolgende Tabelle zeigt Ihnen, welche Grundfunktionen im SHARP- 
Computer aufgerufen werden können. Bitte achten Sie bei den Winkelfunk- 
tionen stets darauf, daß der zu der vorliegenden Winkeleinheit zugehörige 
Betriebszustand DEG, RAD oder GRAD eingestellt ist (siehe Abschnitt 1.1). 
Dies wird oft vergessen und ist eine der Hauptursachen für falsche Ergebnisse. 

















Mathematische 
Funktion 









Eingabe 





vix) 
EXP (X) 
LN (X) 

LOG (X) 
SIN(X) 
cos(xX) 
TAN (X) 


arcsinx ASN (X) 


arccos x ACS(X) 


arctan x ATN(X) 





INT (X) 
SGN (x) 
ABS(X) 


[x] 
sgn x 


Ix| 





Bedeutung 








Quadratwurzel 
Exponentialfunktion 
Natürlicher Logarithmus 
Zehnerlogarithmus 
Sinusfunktion 
Cosinusfunktion 
Tangensfunktion 
Arcussinusfunktion 


Arcuscosinusfunktion 


Arcustangensfunktion 


Größte ganze Zahl sX 
Vorzeichenfunktion 
Betragsfunktion 





Bemerkung 


x>9 


x>6 
x>ß 


Betriebszustand 
DEG, RAD, GRAD 


-IsSXSI1, 

-5 SASN(X) < 
falls RAD 
-1ISXS1I, 
BSACS(X)<u 
falls RAD 

-3 <ATNIX) =z 
falls RAD 


us 
2 





L Zu 





Besteht das Argument X aus einer einzelnen Zahl, so kann bei der Eingabe die 
Klammerung entfallen. Dies ist auch in anderen Sonderfällen möglich, die ich 
hier aber bewußt unterschlage. Erinnern Sie sich daran, daß Klammerung immer 
zulässig ist und die Übersichtlichkeit erhöht. 
Beim PC-1401 sind wesentlich mehr mathematische Funktionen direkt auf- 
rufbar (siehe Bedienungsanleitung). Besteht ein arithmetischer Ausdruck nur 
aus einem einzigen Funktionsaufruf für eine Zahl X, z.B. [In] 2, so dürfen 
Zahl und Funktion beim PC-1401 vertauscht werden, also an). In arithme- 
tischen Anweisungen (vgl. Abschnitt 1.4) ist diese Vertauschung aber unzu- 


lässig. 
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Beispiel: Die Katheten eines rechtwinkligen Dreiecks seien 3.673cm und 
7.851 cm lang. Zu berechnen ist die Hypothenuse. 








Mathematische Formel Eingabe Ausgabe 





c=va?+b? Y (3.6731 2+7.85112) | 8.667706155 








c = 8.668 cm 


Beispiel: Nach dem Cosinussatz gilt für die Seiten eines Dreiecks 
a2=b? +c?-2bc:cose. 


Zu berechnen ist a für b=5.32cm, c=3.78cm und @=41°. 









Eingabe Ausgabe 


DEG (oben) 
3.498146142 | 













DEGREE 
Y (5.32 1 2+3.781 2-2 *5.32*3.78-C0S41) 





a=3.50 cm 


Beispiel: Für die Phasenverschiebung einer erzwungenen Schwingung ist die 
Funktion 





y=arctan 29% 
1-x? 


auszuwerten. Essei 9 = 2.14 und x = 1.123. 





Eingabe Ausgabe 


RADIAN RAD (oben) 
ATN (2 » 2.14 * 1.123/(1-1.123 A 2)) | -1.516520702 








y = - 1.5165 in Bogenmaß. 


Beispiel: Ein reelles Intervall [a, b] wird in n gleichlange Teilintervalle unter- 
teilt. Für eine vorgegebene Zahl x € [a, b] ist das zugehörige Teilintervall ge- 
sucht. Essei a=1,b=3, n=5ß@ und x = 2.179. 

Eingabe Ausgabe 


INT ((2.179 - 1)/((3-1)/59)) 





1+29*(3- 1)/5 
+ (3 -1)/58 





x € [2.16, 2.2] 


In einigen mathematischen Formeln treten Grundfunktionen auf, die nur im 
PC-1401 vorhanden sind, z.B. hyperbolische Funktionen und Areafunktionen. 
Diese Funktionen lassen sich aber durch einen arithmetischen Ausdruck mit 
Hilfe der vorhandenen Funktionen darstellen. Die zu wählenden arithmetischen 
Ausdrücke entnehmen Sie bitte einer Formelsammlung. 
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Beispiel: Zu berechnen ist 


arsinhx = In(x + x? +1) 


für x=n/2. 














Eingabe 
LN (n/2 + Y ((m/2) 12 +1)) 


Ausgabe 
1.233493118 








Die Arcusfunktionen ergeben im Betriebszustand DEG die Winkel als Dezimal- 
zahlen. Ihr Rechner bietet die Möglichkeit, die Nachkommastellen in Minuten 
und Sekunden anzugeben. Umgekehrt lassen sich Minuten und Sekunden als 
Dezimalzahl darstellen. 


Beispiel: Der Winkel 35,3789° soll in Grad, Minuten und Sekunden umge- 
wandelt werden: 















Eingabe 
DMS 35.3789 


Ausgabe Bemerkung 
35.224404 | 35° 22° 44.94" 


Beispiel: Der Winkel 72° 13'45" soll als Dezimalzahl dargestellt werden: 





Eingabe Ausgabe Bemerkung 


DEG 72.1345 | 72.22916667 72.22916667° 


Bei nicht auswertbaren Funktionen bzw. arithmetischen Ausdrücken mit 
Funktionen zeigt Ihr Rechner wiederum die Fehlermeldung 


ERROR 2 





an. 


Aufgabe 6: Berechnen Sie die folgenden mathematischen Ausdrücke für x=ß.5. 
Winkel sind in Bogenmaß einzugeben. 





+ 

a). Acos’x-3cosx b) nt 
: 2 x-1 

2x 

e“” — 1 x, a 
c) 2x4 d) In un ($+2) 

5 

e) SV x? +4 arcsinx f) 5 Inx-4) 
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1.4 Speicher und Variable 


Auch in diesem Abschnitt stellen Sie bitte den RUN-Mode ein. Bei unseren 
bisherigen Rechnungen war es nicht möglich, Zwischenergebnisse oder 
Endergebnisse im Rechner festzuhalten und ohne Löschung vorangegangener 
Zahlen weitere arithmetische Ausdrücke auszuwerten. Dieses Handikap wird 
durch die Speichermöglichkeit von Zahlen behoben. 

Alle hier behandelten Rechner besitzen 26 feste Speicher, in die Zahlen oder 
Texte hineingeschrieben werden können. Wollen wir einen bestimmten Speicher 
mit einer Zahl belegen, so müssen wir ihn identifizieren und ansprechen kön- 
nen. Zu diesem Zweck erhalten die 26 Speicher unterschiedliche Namen, näm- 
lich die 26 Buchstaben des Alphabets A,B,C, ... , Z. Die Speichernamen hei- 
Ren Variable. Diese Bezeichnung sagt aus, daß Variable im Rechner genau wie 
in der Mathematik Platzhalter für noch zu wählende Zahlen sind. Bei den Rech- 
nern PC-1260/61, PC-1350 und PC-1401 darf ein Variablenname auch aus zwei 
Buchstaben oder aus einem Buchstaben und einer Zahl bestehen. 


Die Belegung eines Speicherplatzes, also die Zuordnung einer Zahl zu einer 
Variablen, erfolgt mit Hilfe des Gleichheitszeichens und wird arithmetische 
Anweisung genannt. Eine arithmetische Anweisung hat die allgemeine Form 


Variable = arithmetischer Ausdruck |ENTER 


und besagt, daß in den zur Variablen gehörenden Speicherplatz der Wert des 
arithmetischen Ausdrucks ohne die rechnerinternen Schutzstellen hineinge- 

schrieben wird. Das Ergebnis des arithmetischen Ausdrucks wird gleichzeitig 
ausgegeben. 


Der Inhalt eines zu einer Variablen gehörenden Speicherplatzes kann durch 


| Variable 


in das Eingaberegister gebracht werden. 


Beispiel: 





Arithmetische Anweisung Ausgabe 
A=3+SIN (n/4) -4 COS (3 + 7/4) 5.320589633 






A=.712 8.712 





Durch A erhalten wir den Wert 9.712, also die zuletzt der 
Variablen A zugeordnete Zahl. Wir erkennen hieran, daß eine arithmetische 
Anweisung eine vorangegangene Speicherbelegung überschreibt und es nicht 
erforderlich ist, Zahlen in Speichern zunächst zu löschen. Trotzdem ist die 
Löschung von Speicherbelegungen vorgesehen. Der Befehl 


CLEAR |ENTER 


ordnet allen Variablen den Wert ® zu. 
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Variable können wie Zahlen in arithmetische Ausdrücke eingebaut werden. 

Wir erhalten hierdurch die Möglichkeit, allgemeine Formeln als arithmetische 
Anweisungen in den Rechner einzugeben. Hierbei ist stets darauf zu achten, 
daß auf der linken Seite des Gleichheitszeichens nur eine einzelne Variable 
steht. Eine solche arithmetische Anweisung wird folgendermaßen ausgewertet: 
In den arithmetischen Ausdruck werden die den Variablen zugeordneten 
Zahlen eingesetzt, der arithmetische Ausdruck wird ausgewertet, das Ergebnis 
wird der Variablen auf der linken Seite zugeordnet und gleichzeitig ausgegeben. 


Beispiel: 










Arithmetische Anweisung Ausgabe 


A = 3.7126 3.7126 
B = 8.0025 8.0025 
C=V(A*A+B+B) 8.821757479 








An dieser Stelle ist es besonders wichtig zu erkennen, daß arithmetische An- 
weisungen Speicherplatzbelegungen sind und keine Gleichungen in mathe- 
matischem Sinne. Ist A=3 und B =4, so ist die mathematische Gleichung 
A=B falsch, dagegen ordnet die arithmetische Anweisung A =B der Varia- 
blen A den Wert der Variablen B, also 4, zu. Insbesondere sind arithmetische 
Anweisungen der Art A=A +1 zulässig und treten, wie wir noch sehen wer- 
den, bei der Programmierung besonders häufig auf. 


Beispiel: Für q= 9.5 soll 
sel+tq+tgq?’+tq’+q’+q’=1I+rqll+q(i+rq(i+rqg(i+g))) 


berechnet werden. 


9.5 
1.5 


1.75 
1.875 
1.9375 
1.96875 








s = 1.96875 


Beispiel: Die Lösungen einer quadratischen Gleichung 
x?+ax+b=ß 


berechnen sich durch 
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Die Lösungen sollen für a=ß.73 und b=-1.27 angegeben werden. 


Eingabe Ausgabe 


A=9.73 8.73 
B=-1.27 1.27 





D=Y(AxA/4-B) | 1.184577984 
X=-A/2+D #.819577984 
Y=-A/2-D - 1.549577984 








xı = 0.819577984 xo = -1.549577984 


Um falsche Rechenergebnisse zu vermeiden, achten Sie bitte darauf, daß Sie 
in arithmetische Ausdrücke nur Variable einsetzen, denen Sie vorher einen 
Wert zugeordnet haben. 


Ein Speicher kann nicht nur mit einer Zahl, sondern auch mit einem Text be- 
legt werden. In diesem Fall ist hinter der Variablen das Dollarzeichen $ anzu- 
fügen. Die Anweisung für Textvariable hat die Form 


| _ Textvariable = “Text” [ENTER]. 


Der Inhalt eines Textspeichers wird durch 


|  Textvariable [ENTER 


linksbündig angezeigt. Der in einer Textvariablen gespeicherte Text darf bis zu 
7 Zeichen langsein. Eine Ausnahme bilden die aus 2 Zeichen bestehenden Text- 
variablen in den Rechner PC-1260/61, PC-1401 und PC-1350, die bis zu 16 
Zeichen speichern können. 


Beispiel: 


A$= "SHARP" SHARP 


A$ SHARP 


Eine Textvariable darf nicht in einen arithmetischen Zahlenausdruck einge- 
setzt werden. 






Aufgabe 7: Welche der folgenden arithmetischen Anweisungen sind für A = 1 
ausführbar? Aus welchen Gründen sind einige Anweisungen nicht ausführbar? 


B=Y(1-SIN (2 *A)) 
B=/(1-2*A) 
B/2=A 
B=2*A 
EXP (BJ) =A 
B=LN(A) 
BAE=A-2 
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Aufgabe 8: Eur eine konische Welle, die mathematisch durch Rotation der 


Geraden y=53 + S; 4. x um die x-Achse beschrieben wird, erhält man für 


das Volumen V und den Schwerpunkt x, die Formeln 





zl 
= 7, (D?+Dd+a?) xy 802 +204+ 42). 


Geben Sie mit Hilfe arithmetischer Anweisungen für den Fall D = 1.25 m, 
d=ß.75m und /= 18.75m Volumen und Schwerpunkt an. 


Aufgabe 9: Die Fakultätszahlen n! sollen für n= 1,2, ..., 18 mit möglichst 
geringem Rechenaufwand in zehn Speicherplätze eingelesen werden. 


Aufgabe 10: Berechnen Sie mit möglichst geringem Rechenaufwand 


o, (il) 
122 ol: 


Gegenüber dem PC-1401 haben die übrigen Rechner den folgenden Nachteil: 


Bei der manuellen Rechnung können Zwischenergebnisse nur für die Grund- 
rechenarten, nicht aber als Argumente für Grundfunktionen verwendet 
werden. Diese gravierende Einschränkung kann leicht dadurch aufgehoben 
werden, daß arithmetische Ausdrücke als arithmetische Anweisungen einge- 
geben werden und dann mit den Variablen weitergerechnet wird. 


Beispiel: 


Eingabe Ausgabe 





A=n/2 1.570796327 
A=SIN(A) | 1. 





1.5 Fehlerbehandlung 


Es kommt sehr häufig vor, daß eingegebene arithmetische Ausdrücke oder 
arithmetische Anweisungen nicht das gewünschte Ergebnis liefern, also 
fehlerhaft sind. Wir haben bereits gesehen, daß ein vom Rechner nicht aus- 
führbarer arithmetischer Ausdruck zu einer Fehlermeldung ERROR 2 führt. 
Weiterhin wissen wir schon, daß bei einem unzulässigen Variablennamen auf 
der linken Seite einer arithmetischen Anweisung keine Speicherbelegung 
erfolgt und ® oder ERROR 1 angezeigt wird. Schließlich kann es passieren, 
daß ein arithmetischer Ausdruck zwar ausgewertet wird, aber nicht die er- 
wartete Zahl erscheint. Derartige Fehler sind nicht vom Rechner feststellbar. 
Man kann sie erkennen, indem man für den arithmetischen Ausdruck eine 
grobe Überschlagsrechnung durchführt. Die Fehlerursache liegt zumeist 
darin, daß die in Abschnitt 1.3 beschriebene Reihenfolge für die Auswertung 
arithmetischer Ausdrücke nicht beachtet worden ist. 
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Beispiel: Es soll y = e®’® ** für x = 1.75 berechnet werden. Eine Überschlags- 
rechnung ergibt z. B. den Wert 1®. 


Y=EXP (8,5 + 1,75) ERROR 9 
Y= EXP 0.5 + 1.75) ERROR 1 


YPS = EXP (8.5 + 1.75) 0. 
Y=EXP0.5 + 1.75 3.398721271 
Y=EXP (0.5 + 1.75) 9.487735836 








Um eine fehlerhaft arithmetische Anweisung korrigieren zu können, müssen 
wir sie zuerst in das Eingaberegister zurückrufen. Dies geschieht, indem man 
eine der Cursor-Tasten [>] oder 2 drückt. Der Cursor steht dann hinter 
dem letzten Zeichen des Ausdrucks oder kennzeichnet eine mögliche Fehler- 
quelle. Natürlich kann man sich auch korrekte Anweisungen ansehen. In 
diesem Fall steht nach >] der Cursor auf dem 1. Zeichen und nach [ 
hinter dem letzten Zeichen des Ausdrucks. 


Beispiel: 





Eingabe Ausgabe 
Y=/(1.5-3.2) ERROR 2 


pP] Y=vV(15-3.2)_ 


In Abschnitt 1.1 haben Sie gelernt, daß der Cursor nach links und rechts ver- 
schiebbar und ein in der jeweiligen Cursorposition stehendes Zeichen über- 
schreibbar ist. Wir korrigieren daher ein falsch eingegebenes Zeichen dadurch, 
daß wir den Cursor auf die Fehlerstelle bringen und das richtige Zeichen ein- 
setzen. 





Beispiel: 





Eingabe Ausgabe 





Y = COS (0.345 + m) ERROR 1 


Y=COSM 0.345 + r) 
( Y = COS(M.345 + m) 
- 9.410754526IE — 01 





Neben falschen Zeichen kann es als Fehlerursache auch vergessene oder zuviel 
gesetzte Zeichen geben, zumeist in Form von Vorzeichen, Multiplikations- 
zeichen oder Klammern. 

Zur Fehlerkorrektur in diesen Fällen dienen die Zweitbelegungen der Cursor- 
Tasten. 
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Die Taste löscht das Zeichen, das durch den Cursor markiert wird. Die 
Lücke wird zugleich geschlossen, indem alle rechts vom Cursor stehenden 
Zeichen um eine Stelle nach links geschoben werden. 

Die Taste [ins] erzeugt eine Lücke von einem Zeichen dadurch, daß alle 
rechts vom Cursor stehenden Zeichen einschließlich des Zeichens, das durch 
den Cursor markiert wird, um eine Stelle nach rechts geschoben werden. In 
diese Lücke kann ein fehlendes Zeichen eingegeben werden. 


Beispiel: 


A=,-0.25 ERROR 2 
A=,/-0.25_ 


A=-,/M.25 
ENTER -0,5 


Hassan! 
-Y 





Beispiel: Der arithmetische Ausdruck 1.4 X 2.75 soll berechnet und dann in 
eine arithmetische Anweisung umgeformt werden. 





















1.4 1 2.75 2.522621531 
M.412.75 
[ns] [ns] | mMZ1.12.75 
A= A=M.4N2.75 
2.522621531 


Eine arithmetische Anweisung kann natürlich auch korrigiert werden, indem 
man die -Taste drückt und die gesamte Anweisung neu schreibt. 


Aufgabe 11: Wie kann das Wort ASCHENBECHER mit minimalen Buchstaben- 
änderungen in das Wort TASCHENRECHNER umgewandelt werden? 


1.6 Rundungsfehler 


Auf den folgenden Seiten werden keine neuen Bedienungshinweise für Ihren 
Rechner dargestellt, sondern Sie sollen erkennen, daß Sie sich auf die vom 
Rechner ausgegebenen Zahlen nicht grundsätzlich verlassen können. 

Ein Computer kann nicht exakt rechnen, daran sollte man stets denken. 

In Abschnitt 1.2 haben Sie gelernt, daß die in den Rechner eingegebenen 
Zahlen die Mantissenlänge 1 haben. Zu lange Zahlen werden durch Rundung 
verkürzt. In Abschnitt 1.4 wurde dargestellt, daß gespeicherte Zahlen eben- 
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falls die Mantissenlänge 1® besitzen. Dagegen werden alle Rechnungen mit 
zwei Schutzstellen ausgeführt. Bei der Eingabe von Zahlen und bei nachfol- 
genden Rechnungen treten also Rundungsfehler auf. Wir wollen uns zunächst 
um die Größenordnung der Eingabefehler kümmern. 


Eine reelle Zahl a wird durch die Anweisung A = a in einen Datenspeicher ge- 
bracht. Der Fehler 


lA-al 
heißt absoluter Fehler, der Ausdruck 
IA-al 
1AI 





heißt relativer Fehler. 
Für eine 13-ziffrige Zahl a ist die normierte Gleitpunktdarstellung 


a=&% .bı babzba4b5bebF7bgbgb40b11Bb12 Ep. 
Die Speicherzahl A ist dann 
A= a7.bı bab3b4bsbeb7bgbg EP . 


Für den absoluten Fehler erhalten wir 


IA - al = |B.dBAnDRRABL 0b 1b121 Ep <B.WMNDNDODIER , 

also 
IA-al<E(p-9). 

Teilt man diese Ungleichung durch |Al, so erhält man wegen JA]> Ep 
JA-al E(p-9) 

















IAI Ep 
also 
Ali 
IAl 
Der relative Eingabefehler einer Zahl ist unabhängig von der Größen- 
ordnung und kleiner als E-9. 
IA-al 
Beispiel: a = 1.dB00R0B00999, A = 1. A” 9.99E - 1B 
j lA-al 
Beispiel: a = 1/3, A = 3.333333333E — 91 Al =99E -11 
2 lA-al 
Beispiel: a=n,A=3.141592654 Al =1.3E - 19 


Werden Zahlen oder Variable, denen eine Zahl zugeordnet worden ist, in 
arithmetische Ausdrücke eingesetzt, so bewirken die Eingabefehler bei der 
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Berechnung des Ausdrucks einen Ergebnisfehler. Den Einfluß der Eingabe- 
fehler auf das Ergebnis nennt man Fehlerfortpflanzung. 

Man möchte nun möglichst erreichen, daß die Ergebnisfehler dieselbe Größen- 
ordnung wie die Eingabefehler haben und berücksichtigt zu diesem Zweck bei 
allen Rechnungen zwei Schutzstellen. Bis auf eine Ausnahme reicht diese 
Maßnahme für die Grundrechenarten und Grundfunktionen in der Regel aus, 
um die Ergebnisfehler kleiner als E-9 zu halten. Die Ausnahme bildet die 
Subtraktion fast gleichgroßer Zahlen. Die dort auftretende Problematik 
wollen wir uns zunächst an zwei Beispielen ansehen. 


Beispiel: Die Brüche 
1 Br E -99 
1.2-1.1 1.2E -99 -1.IE - 99 
ergeben in beiden Fällen den Wert 19. Für die entsprechenden arithmetischen 


Ausdrücke erhält man dagegen: 





Eingabe Ausgabe 


1/11.2- 1.1) 10. 
E - 99/(1.2E —- 99 - 1.1E - 99) ERROR2 











Die Differenz 1.2E - 99 - 1.1E - 99 ist kleiner als die kleinste positive 
Rechnerzahl und wird deswegen gesetzt, d.h. die Differenz wird mit dem 
relativen Fehler 1 berechnet. Da durch $ nicht geteilt werden darf, erfolgt 
eine Fehlermeldung. 


Beispiel: Die quadratische Gleichung 
x? (3:10 P +21 P)x+1=P 
hat für eine ganze Zahl p die Lösungen 
y=3-10P und z= 


Wir berechnen y und z mit Hilfe der Lösungsformeln für x +ax+tb=ß: 


y=-C+D und z=-C-D mit -5 und D=yC*C-B. 


Die Rechnungen ergeben für p = ®, 2, 4 und 6 folgende Ergebnisse und ge- 
rundeten relativen Fehler: 


















IY=yl IZz]l 
P . vi e iz] 
B | 3.000000001 | 3.3E - ıB | 0.333333333 | E-9 
2 | spB.0oBBanı | 3.3E - 10 | 0.0033333 E-5 
4 | sppn0.ddanı | 3.3E - 10 | 0.0003 11E-1 
6 | SH‘. ®. ®. 1. 
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Die Tabelle zeigt, daß der relative Fehler für y unabhängig von p ist, der für z 
dagegen mit p stark anwächst. Die Formel für Z unterscheidet sich von der 
Formel für Y nur dadurch, daß die Zahlen — C und D nicht addiert, sondern 
subtrahiert werden. Mit wachsendem p stimmen beide Zahlen in immer mehr 
Stellen überein. 

Das Phänomen der großen Rundungsfehler bei der Subtraktion fast gleich- 
großer Zahlen wollen wir genauer untersuchen: Zwei reelle Zahlen a und b 
mögen in den ersten k Ziffern übereinstimmen. Dann stimmen auch die zuge- 
hörigen Rechnerzahlen A und B in den ersten k Ziffern überein. Die gesuchte 
Zahl c=a-b wird berechnet durch C= A -B. Bei der Differenzbildung 
heben sich die ersten k Stellen weg und in der normierten Gleitpunktform 
wird der Dezimalpunkt um k Stellen nach rechts verschoben. Da A und B die 
Mantissenlänge 1® haben, hat C die Mantissenlänge 1d -k. Die reelle Zahl c 
wird also durch eine Rechnerzahl C mit verkürzter Mantisse dargestellt. Die- 
selbe Überlegung wie beim relativen Fehler für die Eingabedaten führt jetzt 
mit der kürzeren Mantisse auf den relativen Fehler für das Ergebnis: 


IC =cl 
IC] 
Bei der Subtraktion zweier Zahlen, die in den ersten k Ziffern überein- 


stimmen, ist der relative Fehler des Ergebnisses im ungünstigsten Fall 
um das 1ß*-fache größer als die relativen Eingabefehler. 





<E-9: Ek=E(k-9) 


Numerische Rechnungen, bei denen die relativen Fehler der Ausgabedaten die 
relativen Fehler der Eingabedaten um Zehnerpotenzen überschreiten, heißen 
schlecht konditioniert. Bei fast allen schlecht konditionierten Problemen wer- 
den an irgendeiner Stelle zwei Zahlen subtrahiert, die in mehreren Stellen 
übereinstimmen. Lineare Gleichungssysteme, bei denen die Determinante der 
Koeffizientenmatrix sehr klein ist, sind ein Beispiel für größere schlecht kon- 
ditionierte Probleme. 

Die Untersuchung von Rundungsfehlern soll Ihnen zeigen, daß man gerade bei 
unübersichtlichen längeren Rechnungen die Ergebnisse nicht kritiklos über- 
nehmen darf, sondern sie mit den Zahlen grober Überschlagsrechnungen oder 
mit Meßdaten vergleichen muß. Tritt hierbei eine zu große Abweichung auf, 
ohne daß ein formaler Fehler bei der Rechnung gemacht wurde, so ist die 
Aufgabe schlecht konditioniert. 

Viele Aufgaben können auf verschiedenen Lösungswegen gelöst werden. 
Wählen Sie immer den Weg, bei dem die Subtraktion fast gleichgroßer Zahlen 
ausgeschlossen wird. 


Beispiel: Für die Nullstellen y,z einer quadratischen Gleichung 
x? +ax+b=g 


gilt y-z=b. In unserem vorangegangenen Beispiel können wir Z durch 
Z =1/Y berechnen. Die Rundungsfehler für Z bewegen sich jetzt für alle p 
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Aufgabe 12: Berechnen Sie die Zahl H aus der Formel 


1 
Hess 
D(D- YD?-d2) 
für D=6Ep und d=! E-p mit p=ß, 1,2. 
H kann man im Rahmen der Rechnergenauigkeit auch nach der Formel 
2 4 
2) 
d 4D 16D 


berechnen. Welche Formel ist günstiger? Wie groß ist der relative Fehler? 





Bemerkung: Andere Rechner haben eventuell eine andere Mantissenlänge in 
der normierten Gleitpunktform. Ist die Mantissenlänge m, so ist der relative 
Eingabefehler einer Zahl kleiner als 16 "+", 
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2 Lineares BASIC 


Die manuellen Rechnungen mit einem Taschenrechner sind entscheidend 
schneller ausführbar als der früher übliche Umgang mit Funktionstafeln und 
Rechenschiebern. In vielen Fällen ist aber auch das manuelle Rechnen äußerst 
mühsam und langwierig. Die erforderlichen Rechnungen sind häufig sogar der- 
art umfangreich, daß das Problem in vernünftiger Zeit von Hand nicht lösbar ist. 


Beispiel: Die Funktion y =; (e*+e”*) soll für verschiedene x-Werte berechnet 
werden. Bei der manuellen Rechnung muß für jeden x-Wert die arithmetische 
Anweisung 


Y=09.5»(EXP(X)+EXP(-X)) 


neu eingetippt werden. Hat man z.B. 1®@ verschiedene x-Werte, so ist die 
Handrechnung keine sinnvolle Lösungsmethode. 

Die angesprochene Problematik kann schnell und komfortabel durch die Pro- 
grammierung von Rechnern bewältigt werden. 

Seit den 7®-iger Jahren gibt es programmierbare Taschenrechner, die zwar 
schnell, aber nicht unbedingt komfortabel arbeiten. 

Komfort soll in diesem Zusammenhang heißen, daß die Übertragung einer zu 
rechnenden Aufgabe in ein Programm möglichst einfach ist. Man nennt solche 
Programmierungsmöglichkeiten problemorientiert. Muß man dagegen auf die 
Technik eines Rechners große Rücksicht nehmen, so heißt die Programmierungs- 
möglichkeit maschinenorientiert. Die in einem Rechner realisierte Program- 
mierungsmöglichkeit heißt Programmiersprache. 

Für größere Rechnersysteme gibt es problemorientierte Programmiersprachen 
seit den 6ß-iger Jahren, z.B. FÖRTRAN für den naturwissenschaftlichen Be- 
reich und COBÖL für den wirtschaftswissenschaftlichen Bereich. 


Auf Taschenrechnerebene sind problemorientierte Programmiersprachen seit 
1988 installiert. Die SHARP-Rechner verwenden die Programmiersprache 
BASIC. Das Wort BASIC steht für ‘Beginners Allpurpose Symbolic Instruction 
Code‘‘. In dem Abschnitt über lineares BASIC wollen wir die Grundelemente 
der Programmiersprache kennenlernen. 
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2.1 Programmspeicher 


Mit Hilfe von BASIC können wir für einzelne Rechenprobleme Programme 
erstellen, die die Lösung berechnen, wann immer wir es wünschen. 
Programme werden in einen Programmspeicher geschrieben, dessen Umfang 
für die verschiedenen Rechner unterschiedlich viele Schritte (Bytes) beträgt 
(s.u.). 

Um Programmteile in den Programmspeicher eingeben zu können, muß vor- 
her die Betriebsart PRO eingestellt werden. 

Will man vor einer Programmeingabe sicher sein, daß keine alten Programme 
im Speicher stehen, so kann man durch die Eingabe 


| new [ENTER] 


den gesamten Inhalt des Programmspeichers löschen. Die Anweisung NEW 
umfaßt gleichzeitig die Anweisung CLEAR, so daß auch alle Datenspeicher 
auf ® gesetzt werden. Für die Anfangsphase ist NEW für uns die einfachste 
Möglichkeit, alte Programme und Daten zu löschen. Bei voller Ausnutzung 
der Speichermöglichkeiten unseres Rechners ist die Benutzung von NEW sehr 
gefährlich, da zumeist nur Teilbereiche der Speicher neu benötigt werden, 
andere aber erhalten bleiben sollen. 


Durch die Anweisung 


| mem [ENTER] 


wird die Anzahl der freien Programmschritte angegeben. Nach NEW und MEM 
erscheint im Anzeigefeld der Umfang des gesamten Programmspeichers in 
Bytes. 

Gibt man vor und nach einer Programmeingabe MEM ein, so ist die Differenz 
der Schritte die Anzahl der vom Programm belegten Schritte. 

Die Aufforderung, daß die in einem Programm stehenden Befehle ausgeführt 
werden sollen, nennt man Programmstart oder Programmaufruf. Um ein 
Programm zu starten, wird die Betriebsart RUN eingestellt. Steht nur ein 
einziges Programm im Programmspeicher, so wird es durch den Befehl 


| run [ENTER] 


gestartet. Der Befehl RUN und andere BASIC-Befehle sind beim PC-1246/47 
und PC-1401 als Zweitbelegungen von Tasten direkt aufrufbar. 


2.2 Ein erstes Programm 


Ein Programm enthält eine Anzahl von Anweisungen, auch Befehle genannt, die 
in einer vorgeschriebenen Reihenfolge ausgeführt werden sollen. Die Reihen- 
folge wird festgelegt, indem man vor die Befehle eine natürliche Zahl schreibt. 
Anweisungen mit niedrigerer Zahl werden vor Anweisungen mit höherer 

Zahl ausgeführt. Die Zahl vor einem Befehl heißt Zeilennummer. Zeilennummer 
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und Befehl zusammen ergeben eine Programmzeile oder einen Programmsatz. 
Mit diesen Bezeichnungen besteht ein Programm also aus einer Anzahl von 
Programmzeilen, die nach Aufruf sortiert und in aufsteigender Reihenfolge 
abgearbeitet werden. 


Als Zeilennummern sind beim PC-1246/47 und PC-1251 die natürlichen 
Zahlen von 1 bis 999, bei den übrigen Rechnern von 1 bis 65279 zulässig. 


Um bei späteren Korrekturen zusätzliche Programmzeilen einfügen zu können, 
sollte nach der Zeilennummer n nicht die Nummer n + 1 folgen, sondern eine 
Lücke gelassen werden. Es hat sich eingebürgert, mit 1@ zu beginnen und der 
Zahl n die Zahl n + 10 folgen zu lassen. Bitte übernehmen Sie diese Verein- 
barung. 

Einen der möglichen Programmbefehle haben wir bereits in Abschnitt 1.4 
kennengelernt, nämlich die arithmetische Anweisung. Zusammen mit einer 
Zeilennummer ergibt sich die Programmzeile 


l n Variable = arithmetischer Ausdruck. 


Nach der Eingabe einer Programmzeile in den Programmspeicher durch 
Drücken der -Taste werden Zeilennummer und Befehl durch 
einen Doppelpunkt getrennt. Eine vom Rechner angenommene Programm- 
zeile wird im Anzeigefeld linksbündig ausgegeben. 


Beispiel: 


Eingabe Ausgabe 





PRO-Mode 

NEW > 

10A = 3 10:A=3 
20B=AN25 20:B=An25 
20B=7*(A*A+2)| 20:B=7*(A*A+2) 





Die letzte Eingabe zeigt, daß Programmzeilen genau wie Variable überschrieben 
werden können. 


Durch die Eingabe 


|  n [enter] 


wird die Programmzeile mit der Zeilennummer n gelöscht. Das Ende eines 
jeden Programms muß gekennzeichnet werden, und zwar durch die Programm- 
zeile 


l n END. 


Wir sind jetzt in der Lage, erste Programme schreiben zu können, nämlich 
eine Folge arithmetischer Anweisungen mit dem END-Befehl. 


Beispiel: Die Funktion y = 2xe”*” soll für verschiedene x-Werte berechnet 
werden. 
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Eingabe Ausgabe 


PRO-Mode 

NEW > 

18Y =2*xX*EXPI(X*xX) 18:1 =2*xX*EXP(X*xX) 
20END 20: END 
RUN-Mode 

x = 1.25 1.25 

RUN > 

Y 11.92683295 
x=6.75 0.75 

RUN > 

Y 2.632581985 





Beispiel: Für einen Punkt im IR? mit den Koordinaten x, y, z seien die Koor- 
dinaten der in diesem Punkt wirkenden Kraft durch folgende Formeln gegeben: 


= x G= Y este 
(x2 + y2 + 22)3/2 (x2 + y2 +22)%2’ (x2 +y2 + 22)3/2 " 





Für einen beliebigen einzugebenden Punkt (x, y, z) sollen F, G und H berechnet 
und abgefragt werden. 


PRO-Mode 

NEW 
18R=(X*X+Y*Y+Z*Z)A1.5 
20F = X/R 
























> 
18:R= (X*Y+Y*Y+Z*Z)A 1.5 
20:F=X/R 


















30G = Y/R 30:G=Y/R 

48H = Z/R 48:H=Z/R 
SBOEND 50:END 
RUN-Mode 

x = 1/3 3.3333333331E — 01 
Y = 1/10 0.1 

z=1/8 0.125 


RUN > 
6.592557241 
1.977767172 


2.472208966 


In allen folgenden Beispielen wird das Umschalten der Betriebsart und das 
Löschen des Programmspeichers fortgelassen. Wir wollen in Zukunft immer 
zwischen Programmeingabe und Programmaufruf unterscheiden. 
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Beispiel: Lineare Interpolation 

Für eine durch eine Tabelle gegebene Funktion sollen Zwischenwerte berechnet 
werden, indem zwei benachbarte Punkte des Graphen der Funktion durch eine 
Gerade verbunden werden und Funktionswerte durch Werte der Geradenfunk- 
tion ersetzt werden. Seien also (A,B) und (C,D) aus der Tabelle entnommene 
Punkte des Graphen der Funktion. Nach dem Strahlensatz gilt für einen be- 
liebigen Punkt (X,Y) der Verbindungsgeraden 


YeB De 
xX-A C-A' 


Die Auflösung nach Y ergibt die Interpolationsformel 


Programmeingabe: PRO-Mode 


1BE = (D-B)/(C-A) 18:E= (D-B)/(C-A) 
2BY=B+E*(X-A) 206:Y=B+E=»(X-A) 
SBEND 3d:END 


















Programmaufruf: RUN-Mode 


Für den Benzinverbrauch eines Automotors werden vom Hersteller folgende 
Werte angegeben: 


km/h 8 118 149 
Liter/18@ km 7 75 18 





Berechnet werden soll der Verbrauch 





für 98 km/h und 13@kmj/h. Eimabe Ausgabe 

A= 80 80. 

B=7 7. 

C=119 118. 
D=75 75 

X=99 39. 

RUN > 

Y 7.166666667 
A=149 148. 

B=18 18. 

X = 130 130. 

RUN = 

y 9.166666667 
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Als Ergebnis erhält man einen Verbrauch von 7.17 Liter/1ß@ km bei 98 km/h 

und 9.17 Liter/1ß@ km bei 13@ km/h. 

Bei der Berechnung des zweiten Funktionswertes mußten nur A und B erneut 
eingegeben werden, weil die Interpolationsformel bezüglich der Punkte (A, B) 
und (C, D) symmetrisch ist. 


Aufgabe 13: Die Umrechnungsformeln von Polarkoordinaten in kartesische 
Koordinaten in der Ebene lauten 


x=r'cosp und y=r-sinp. 


Für die Funktion r = sin (2%) - cos? yp sollen x und y für y= 9°, 39°, 69° 
und 99° berechnet werden. Programmieren Sie die Aufgabe und rufen Sie das 
Programm für die angegebenen Werte auf. 


Aufgabe 14: Schreiben Sie ein Programm zur Berechnung der Flächenwerte 
eines kreisringförmigen Querschnitts mit dem Außendurchmesser d,' und dem 
Innendurchmesser d;: 


Flächeninhalt A= 7 (43-7) 
Flächenträgheitsmoment I= (2 -d*) = = (d?2 + d2) 
64 ed 
i 21 
Widerstandsmoment = . 
a 


Rufen Sie das Programm auf für d, =2 dm, d; = 1.8 dm. 


Bemerkungen: Man kann in eine Programmzeile mehrere Befehle hinein- 
schreiben. Die einzelnen Befehle sind durch einen Doppelpunkt zu trennen. 
Eine Programmzeile hat also die Form 


| n Befehl1:Befehl2:Befehl3 usw. 


Beachten Sie, daß das Eingaberegister nur 88 Zeichen aufnehmen kann. Der 
besseren Übersicht wegen ist dem Anfänger zu empfehlen, in jede Zeile nur 
einen Befehl einzugeben. 

In diesem Abschnitt ist bei den Programmen immer noch die Eingabe von 
Programmzeilen und die Speicherung im Programmspeicher getrennt aufge- 
führt worden. Der einzige Unterschied bestand im Doppelpunkt zwischen 
Zeilennummer und Befehl. Bei allen nachfolgenden Abschnitten wird nur 
noch der Inhalt des Programmspeichers dargestellt und auf die Eingabe der 
Zeilen verzichtet. 


2.3 Ein-Ausgabe-Befehle 


Bei den bisherigen Programmen mußten die vorzugebenden Daten vor dem 
Programmaufruf über arithmetische Anweisungen eingegeben und die berech- 
neten Daten über Speicherabfragen ausgegeben werden. Diese Handarbeit ist 
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wenig komfortabel und bei umfangreicheren Programmen sogar hinderlich. 
Besser ist es, wenn Eingabedaten vom Programm selbst angefordert und Aus- 
gabedaten automatisch ausgegeben werden. Diese erwünschte Technik wird 
durch Ein- und Ausgabebefehle realisiert, die wir jetzt besprechen wollen. 
Der Eingabebefehl heißt INPUT. Wird während eines Programmlaufs der Be- 
fehl INPUT erreicht, so werden vom Rechner Daten angefordert. Nach dem 
Wort INPUT folgt eine Liste mit Texten und Variablen, die durch Semikola 
und Kommata getrennt werden. Wie in Abschnitt 1.4 werden Texte durch 
Anführungszeichen eingegrenzt. Eine Programmzeile für den Eingabebefehl 
hat die allgemeine Form 


| n: INPUT “Text‘'; Variable, ‘Text’; Variable...... 


Der Text zwischen zwei Variablen kann weggelassen werden. Bitte achten Sie 
darauf, nach einer Variablen ein Komma und nach einem Text ein Semikolon 
zu setzen. Nach einem Text muß immer eine Variable folgen. Die Liste muß 
mindestens eine Variable enthalten. Das Komma nach der letzten Variablen 
wird weggelassen. Werden die Listenregeln nicht eingehalten, so erfolgt eine 
Fehlermeldung. 

Für die in der Liste auftretenden Variablen werden entsprechend ihrer Reihen- 
folge Daten angefordert. Die Dateneingabe erfolgt einzeln. Bei der Abarbeitung 
des INPUT-Befehls erscheint der Text vor der ersten Variablen im Anzeigefeld. 
Steht vor der ersten Variablen kein Text, so erscheint ein Fragezeichen. Gibt 
man jetzt einen arithmetischen Ausdruck ein und drückt die -Taste, 
so wird der Wert des arithmetischen Ausdrucks ausgerechnet und der ersten 
Variablen zugeordnet. Gleichzeitig erscheint der Text vor der zweiten Varia- 
blen oder das Fragezeichen. Die Wertzuweisung erfolgt analog zur ersten Varia- 
blen. Ist die Liste abgearbeitet, so wird das Programm mit dem nächsten Be- 
fehl fortgeführt. Wird einer Variablen kein Wert zugeordnet, sondern nur die 
[ENTER]-Taste gedrückt, so wird das Programm mit der nächsten Programm- 
zeile fortgesetzt. 


Beispiel: Satz des Pythagoras 
Für die Seiten eines rechtwinkligen Dreiecks gilt a? +b?=c?. Bei gegebenem a 
und b soll c berechnet werden. 


1. Programmversion: 1ß:INPUT A,B 
28:C=\/(AxrA+B+B) 
39:END 


Programmausführung: A=2.75 B=3.81 


RUN 


2.75 
3.81 
c 4.698787078 
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2. Programmversion: 1®:1NPUT "A=";A,'"B=";B 
20:C=\/(A*A+B+B) 
39:END 


Programmausführung: A=2.755 B=3.81 


Eingabe Ausgabe 





As 

B= 

> 
4.698787078 








Die Ein- und Ausgabe bei der Programmausführung bezüglich des INPUT- 
Befehls werden wir in Zukunft zusammenfassen, z.B. A = 2.75. 

Der Ausgabebefehl heißt PRINT. Wird während eines Programmlaufs der 
Befehl PRINT erreicht, so werden vom Rechner Daten oder Texte ausgege- 
ben. Nach dem Wort PRINT folgt eine Liste mit Texten oder Variablen, die 
durch Semikola voneinander getrennt werden. Die Listenelemente können 
Variable, Textvariable oder Texte sein. Eine Programmzeile für den Ausgabe- 
befehl hat die allgemeine Form 


“Text” “Text” 
n:PRINT | Variable } Variable 
Textvariable Textvariable 


Die Liste muß mindestens aus einem Listenelement bestehen. Das Semikolon 
nach dem letzten Listenelement wird weggelassen. Werden die Listenregeln 
nicht eingehalten, so erfolgt eine Fehlermeldung. 

Für die in der Liste auftretenden Elemente werden entsprechend ihrer Reihen- 
folge Zahlen oder Texte ausgegeben. Die angegebenen Texte, die Werte der 
Variablen oder die Speicherinhalte der Textvariablen werden gemeinsam links- 
bündig angezeigt. Grundsätzlich sollten Sie darauf achten, nur solche Printlisten 
zu erstellen, die auch ins Anzeigefeld passen. Nicht sichtbare Positionen lassen 
sich auch mit der Cursor-Taste nicht mehr zur Anzeige bringen. 

Bei dem später zu besprechenden Anschluß eines Druckers kann es dagegen 
sinnvoll sein, bis zu 80 Zeichen pro PRINT-Befehl zuzulassen. 


Ist ein PRINT-Befehl abgearbeitet, so wird der Programmlauf unterbrochen. 
Das Programm wird fortgeführt, indem man die |ENTER] -Taste drückt. 
Beispiel: Kugelvolumen 

Das Volumen einer Kugel berechnet sich nach der Formel 


= 47 r°3 
zur. 
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Programm: 108: INPUT"RADIUS=";R 
20: V=4/3*7*RN3 
30: PRINT’VOLUMEN=";V 
40: END 


Programmaufruf für r = 1.25 cm: 


RUN 


RADIUS=1.25 [ENTER 
VOLUMEN = 8.181230869 


Das Volumen beträgt 8.18 cm®. 


Danach PRINT das Programm bereits zu Ende ist, braucht die |ENTER|-Taste 
nicht gedrückt zu werden. 


Beim PC-1246/47 und PC-1401 passen Text und Zahl beim Volumen nicht in 
eine Zeile, es wird nur 


VOLUMEN = 8.181230 


angezeigt. Man muß also aufpassen, daß sie Ausgabetexte nicht zu lang geraten. 
Eine normierte Gleitpunktzahl nimmt maximal 16 Zeichen in Anspruch, so 
daß in diesen Fällen beim PC-1246/47 und PC-1401 kein mögliches Textzeichen 
bleibt. 

Häufig ist es von der Problemstellung her überhaupt nicht erforderlich, 

Zahlen auf 10 Stellen genau anzugeben. Bei technischen Aufgaben sind die 
Eingabedaten sehr oft Meßwerte, die mit Fehlern behaftet sind. In diesen 
Fällen sind die hinteren Ziffern einer Ausgabezahl wertlos. Deshalb wünscht 
der Benutzer eines Rechners, daß Zahlen mit verkürzter Mantisse ausgegeben 
werden können, um auf diesem Wege die Übersichtlichkeit von Ausgabedaten 
zu erhöhen und den zur Verfügung stehenden Platz besser nutzen zu können. 
Der Wunsch wird programmtechnisch dadurch realisiert, daß der PRINT- 
Befehl um eine Anweisung ergänzt wird. Die zusätzliche Anweisung gibt an, 

in welcher Weise Zahlen angezeigt werden sollen und heißt Formatanweisung. 


Die Formatanweisung in der Programmiersprache BASIC hat den Namen 
USING. Nach dem Befehlswort USING wird ein Zahlenformat angegeben, 
das in Anführungszeichen eingeschlossen wird. Der USING-Befehl hat die 
allgemeine Form: 


| n: USING”Format’’ oder n: PRINT USING’’Format'';.... 
Für Zahlenformate stehen zwei Möglichkeiten zur Verfügung. 


Format 1: Zahlen können als normierte Gleitpunktzahl mit verkürzter Man- 
tisse ausgegeben werden. Der Exponent p wird auch für p = @ angezeigt. Das 
Format 1 hat die allgemeine Form 


HHHHHEHN 
m-mal 
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Das #-Zeichen ist die Zweitbelegung der E-Taste. Die Anzahl m< 9 der 
#-Zeichen gibt die anzuzeigenden Nachkommastellen an. Die Mantissenlänge 
ist m + 1, denn eine Ziffer und das Vorzeichen stehen in der normierten 
Gleitpunktform ja vor dem Dezimalpunkt. 


Format 2: Zahlen können als Dezimalzahlen ausgegeben werden. Das Format 2 
hat die allgemeine Form 


FHRHHHHH 


n-mal m-mal 





Die m #-Zeichen nach dem Dezimalpunkt geben die anzuzeigenden Nach- 
kommastellen an. Die n #-Zeichen vor dem Dezimalpunkt geben die anzu- 
zeigenden Vorkommastellen und das Vorzeichen an. Auch im Falle positiver 
Zahlen muß ein #-Zeichen für das Vorzeichen eingegeben werden, obwohl 
das Vorzeichen + nicht angezeigt wird. Im Format 2 ist also stets n>22. Für 
m = kann der Dezimalpunkt weggelassen werden. Die Mantissenlänge der 
Dezimalzahl ist nt m -1. 

Steht in einem Programm ein USING-Befehl, so werden im Programmaufruf 
für alle dem USING nachfolgenden PRINT-Befehle die Ausgabedaten in dem 
vorgeschriebenen Format angezeigt. Eine Formatanweisung wird so lange auf- 
rechterhalten, bis im Programmlauf ein neuer Formatbefehl erreicht wird. 
Wird nach USING weder Format 1 noch Format 2 angegeben, so werden die 
Zahlen entsprechend den Ausgaberegeln des manuellen Rechnens aus Ab- 
schnitt 1.2 angezeigt. Kann eine Zahl im Falle von Format 2 nicht in der vor- 
geschriebenen Form ausgegeben werden, so erfolgt die Fehlermeldung 


I ERROR? INn (n = Zeilennummer) 


Durch die Fehlermeldungen mit unterschiedlichen Nummern können wir 
Fehler in arithmetischen Anweisungen von Formatfehlern unterscheiden. 
Hierdurch wird die Programmkorrektur erheblich erleichtert. Die Bedeutung 
der Ziffern entnehmen Sie bitte der Bedienungsanleitung. 


Beispiel: Verschiedene Zahlen sollen mit einem Format ausgegeben werden. 


Programm: 18: INPUT“EINGABE="; A 
20: USING #HH.H#" 
30:PRINT"AUSGABE=";A 
40:END 


Programmlauf: RUN 
EINGABE=-1.12 
AUSGABE=-1.12 


RUN RUN 
EINGABE= 1/3 EINGABE=11.2 
AUSGABE=9.33 ERROR 7 IN 39 
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Beispiel: Die Zahl soll mit unterschiedlichem Format ausgegeben werden. 


Programm: 10: INPUT A="';A 
20: USING’ ##" 
30:PRINT'A="';A 
48: USING". HHHN” 
50:PRINT’A=";A 
60: USING” #HHH.HHHH" 
78: PRINT" A=";A 
80: END 


Programmlauf: RUN 
A=an 
A=13 
A=113.14 EL 89 


A = LI1L13.1415 


Wir haben gelernt, daß bei einer Anzeige von Daten oder Texten im Sicht- 
fenster aufgrund eines PRINT-Befehls gleichzeitig ein Programmstop erfolgt. 
Das Programm wird weitergeführt, indem man manuell die -Taste 
bedient. Den Start von Hand kann man umgehen, indem man den WAIT- 
Befehl verwendet. 


Die Anweisung 
l Zeilennummer: WAIT arithmetischer Ausdruck 


bewirkt, daß der Rechner den arithnmetischen Ausdruck berechnet. Sein Wert n 
muß zwischen ® und 65535 liegen. Bei allen nachfolgenden PRINT-Anweisungen 
unterbricht der Rechner den Programmlauf nur für n * (1/64) Sekunden und 
setzt ihn dann fort, ohne daß vorher die -Taste zu drücken ist. 


Auch die Anweisung 
I Zeilennummer: WAIT ® 


kann sinnvoll sein, wenn nämlich zwischen zwei PRINT-Anweisungen Zeit 
vergeht; während der Programmdurchführung bleibt die jeweils letzte Anzeige 
sichtbar. 


Die Anweisung 
I Zeilennummer: WAIT 


ohne nachfolgenden arithmetischen Ausdruck hebt die Wirkung der früheren 
WAIT-Anweisungen wieder auf. 


Beispiel: Die Exponentialfunktion e* hat die Reihenentwicklung 
x x° x? 
! 


4 
el 424% 4% 4 
2! 31 41 51 
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Es sollen die ersten Summen 


2 2 3 2 3 4 
x x x x x 
X 14x+%.4+% 14x+% 404 


KIEFER, 21'310 21 "31 "41 


berechnet und fortlaufend angezeigt werden. Die Rechnung soll so erfolgen, 
daß bekannte Summen weiterverwendet werden. 


Programm: 18: INPUT’X=";X 
20:5=1 
30:WAIT128:PRINTS 
40:5=S+X 
50:PRINTS 
60:5=S+XN12/2 
70: PRINTS 
80:5=S+XN3/6 
98: PRINTS: WAIT 

100:5=S+xN14/24 
118: PRINT'‘'S=";S 
120: END 


Programmlauf für X = 9.5: 


RUN 

x=8,5 

1. 

1.5 

1.625 
1.645833333 
S= 1.6484375 


Die Zwischenergebnisse werden 2 sec lang angezeigt. 


Eine andere Möglichkeit besteht darin, PRINT durch PAUSE zu ersetzen. Die 
Anweisung 


l PAUSE ... 
hat dieselbe Wirkung wie die Anweisungsfolge 


WAIT 54.4 
PRINT. ... 
WAIT 


Aufgabe 15: Erstellen Sie mit Hilfe eines Programms eine Wertetabelle für die 
Funktion 
2, BR 


x2+x+1 


x soll eingegeben, x und y in einer Zeile mit zwei Stellen nach dem Komma 
ausgegeben werden. Starten Sie das Programm für 


x=-2,-15,-1,-85,8,85,1,15,2. 
Aufgabe 16: Für die Funktionen 
y=2(x+1) und yz=e* 


ist der Schnittpunkt der Funktionsgraphen im 1. Quadranten gesucht. Erstellen 
Sie ein Programm, das zu gegebenem x beide Funktionswerte in einer Zeile an- 
zeigt. Starten Sie das Programm für verschiedene x-Werte und versuchen Sie 

die Funktionswerte abzugleichen. Welche Näherung erhalten Sie für den Schnitt- 
punkt? 


Bemerkungen: Die Ein- aus Ausgabebefehle INPUT, PRINT und USING 

lassen noch einige andere Varianten zu, die hier weggelassen wurden. Wenn 

Sie sich hierfür interessieren, lesen Sie bitte die entsprechenden Abschnitte 
Ihres Bedienungshandbuches durch. 

Formatanweisungen gibt es in allen problemorientierten Programmiersprachen, 
wobei die Möglichkeiten der Ausgabegestaltung erheblich umfangreicher sein 
können. 


2.4 Programmänderungen und Fehlerkorrektur 


Sehr viele der in den Rechner eingegebenen Programme müssen im Laufe der 
Zeit verändert werden. Änderungsgründe können sein: 


a) Das Programm enthält programmiertechnische Fehler. Beim Programmstart 
wird eine Fehlermeldung angezeigt. 
Beispiel: Statt PRINT wird PINT eingegeben. 

b) Das Programm ist formal richtig, führt aber trotzdem zu einer Fehlermel- 
dung oder liefert nicht die erwarteten Ergebnisse. 
Beispiele: Eine Zahl kann nicht in einem vorgeschriebenen USING-Format 
ausgegeben werden. Zahlen sind unzulässige Argumente von Standardfunk- 
tionen. Die Auswertungsrangfolge von arithmetischen Ausdrücken ist nicht 
beachtet worden. 

c) Das Programm soll erweitert werden. 
Beispiele: Zusätzliche arithmetische Anweisungen sollen eingefügt werden. 
Die Ein- und Ausgabe soll durch zusätzliche Befehle verbessert werden. 

In allen Fällen benötigen wir eine ähnliche Technik wie bei der in Abschnitt 1.5 

besprochenen Korrektur arithmetischer Ausdrücke und Anweisungen. 

Alle Änderungen von Programmen werden im PRO-Mode durchgeführt. Vor 

Programmänderungen ist es zunächst erforderlich, sich Programmteile oder 

das gesamte Programm anzusehen. Wir benötigen also einen Befehl, mit dem 

wir Programmzeilen aus dem Programmspeicher in die Anzeige bringen können. 
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Die entsprechende BASIC-Kommandoanweisung heißt LIST und hat die allge- 
meine Form 


LIST n [ENTER]. 


Wird dieser Befehl eingegeben, so erscheint die Programmzeile mit der Zeilen- 
nummer n im Anzeigefeld. Existiert die Programmzeile nicht, so wird die 
Fehlermeldung 

I ERROR4 


ausgegeben. Wird die Zeilennummer im LIST-Kommando weggelassen, so 
erscheint die Programmzeile mit der niedrigsten Zeilennummer, also der 
Programmanfang. 

Steht eine Programmzeile im Anzeigefeld und bedient man die &J-Taste, so 
wird die Programmzeile mit der nächsthöheren Zeilennummer angezeigt. 

Die Bedienung der F@]-Taste bewirkt eine Verschiebung zur nächstniedrigeren 
Zeilennummer. Drückt man die Tasten permanent, so wird schrittweise der ge- 
samte Inhalt des Programmspeichers ausgegeben. Auf diese Art und Weise kann 
man z.B. feststellen, welche Zeilennummern bereits belegt sind. Die Tasten [®] 
und [@] haben in vertikaler Richtung eine ähnliche Funktion wie die Cursor- 
Tasten P] und e in horizontaler Richtung. Machen Sie sich bitte mit LIST, 
[®] und [@] anhand von Beispielprogrammen aus den vorigen Abschnitt ver- 
traut. 

Nachdem man sich überlegt hat, was und wo man in einem Programm ändern 
möchte, bieten sich für die Korrektur drei Möglichkeiten an: 


a) Einfügen von Programmzeilen 

Genau wie in Abschnitt 2.1 besprochen, gibt man eine Programmzeile mit 
einer noch freien Zeilennummer ein. Die neue Zeile wird entsprechend ihrer 
Zeilennummer in die bereits vorhandenen Zeilen einsortiert. 


b) Löschen von Programmzeilen 
Die Zeilennummer der zu löschenden Programmzeile wird eingetippt und die 


ENTER]|-Taste gedrückt. 


c) Änderung von Programmzeilen 


Die zu ändernde Programmzeile wird in das Eingaberegister gebracht und mit 
der in Abschnitt 1.5 besprochenen Technik korrigiert. Nach der Korrektur 
wird durch Drücken der [ENTER] -Taste die alte Programmzeile durch die 
neue Programmzeile überschrieben. Befehlsworte wie PRINT, USING, INPUT, 
END sind programmtechnisch ein Zeichen und müssen bei Korrekturen voll- 
ständig neu geschrieben werden. 

Können die in einem Programm stehenden Befehle nach dem Programmstart 
nicht vollständig abgearbeitet werden, so erscheint im Anzeigefeld eine Fehler- 
meldung. Die Fehlermeldung gibt uns an, bis zu welcher Zeile das Programm 
ausgeführt wurde und warum ein Stop erfolgte. Die Bedeutung der Code- 
nummer einer Fehlermeldung finden Sie in der Bedienungsanleitung. 
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Drückt man nach einer Fehlermeldung im RUN-Mode in der Zeile n die f@]- 
Taste permanent, so erscheint die Programmzeile n in der Anzeige. 


Läßt man die fe]-Taste los, so wird die Fehlermeldung gelöscht. Da eine Feh- 
lermeldung im Eingaberegister steht, kann sie auch mit der [EL]-Taste ge- 
löscht werden. Schaltet man jetzt in den PRO-Mode um und drückt fe] oder 
BE. so erscheint erneut die Zeilen. 

In vielen Fällen enthält die Zeile bereits den Fehler und man kann direkt 
korrigieren. Es kann aber auch vorkommen, daß in der Abbruchzeile kein 
Fehler vorliegt und vorangegangene Programmzeilen geändert werden müssen. 
Ein Beispiel hierfür sind Formatfehler, bei denen nicht die PRINT-Befehle, 
sondern die USING-Befehle zum Abbruch führen. In diesen Fällen wird zu- 
nächst die zu korrigierende Zeile in die Anzeige geholt und dann geändert. 


Beispiel: Für einen dreidimensionalen Kraftvektor Fsoll die Länge F berech- 
net werden. 


Programm: 10: INPUT“"FX=";A, FY=";B,"FZ=";C 
20: F=//(AN2+BA2+CN2) 
39: USING’ #FH##" 
48: PRINT“F=";F 
50: END 


1. Programmaufruf für F,= 7.5, F,=9 und F,=2.6: 


RUN 

FX=7.5 

FY=9 

FZ=2.6 
ERROR7 IN 40 


1. Korrektur: 


[®] PRO-Mode [e]| | 49:PRINT“F="; 
30: USING" ##H.##" 





30: USING’ M#H.#F#F" 
30 USING“. ##F#F NM 





ENTER 30: USING”. ###N" 
2. Programmaufruf für F, = 7.5, F,=9undF, = 2.6: 
RUN 
FX=7.5 
FY=9 
FZ=2.6 
F = 1.200IE 01 
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Bei längeren und komplizierteren Programmen ist es manchmal schwierig, 
trotz des Hinweises in der Fehlermeldung den wirklichen Fehler zu finden. 
Dieselbe Situation tritt ein, wenn ein Programm fehlerfrei läuft, aber falsche 
Daten ausgerechnet werden. In solchen Fällen sollte man das Programm in 
mehrere Teile unterteilen. Eine Möglichkeit hierzu bietet der STOP-Befehl: 


l Zeilennummer: STOP 
hat innerhalb eines Programms dieselbe Wirkung wie 
I Zeilennummer: END, 


der Rechner stoppt den Programmlauf, sobald er in diese Zeile kommt. Beim 
STOP-Befehl erscheint dann außerdem die Angabe 


I BREAK IN Zeilennummer 


in der Anzeige; und im Gegensatz zum END-Befehl kann der STOP-Befehl 
durch CONT wieder aufgehoben werden. Die Wirkung des STOP- 
Befehls kann auch manuell mit der -Taste erzielt werden. Der STOP- 
Befehl läßt sich generell beim Programmieren anstelle des END-Befehls ver- 
wenden. Für die Fehlersuche hat er den Vorteil, daß nach einer Programm- 
unterbrechung Gelegenheit besteht, die aktuellen Werte der im Programm 
verwendeten Variablen abzurufen und mit den eigenen Erwartungen zu 
vergleichen, bevor man den Programmlauf fortsetzt. Auf diese Weise läßt 

sich genauer lokalisieren, in welchem Programmteil der Fehler steckt. 

Eine noch feinere ‚Zerlegung‘ des Programms in seine Einzelteile ist mit dem 
TRON-Kommando möglich: Gibt man in der Betriebsart RUN das Kommando 


| TRON [ENTER 


in den Rechner ein, so wird der Rechner in den Trace-Zustand versetzt (Trace 
= Spur, TRON = Trace on). Nach Starten eines Programms mit RUN 
wird im Trace-Zustand der Programmlauf nach jeder Zeile automatisch ge- 
stoppt, wobei die aktuelle Zeilennummer im Anzeigefeld erscheint. Durch 
Drücken und Festhalten der [®] -Taste erscheint auch die Zeile selbst im 
Anzeigefeld. Durch Drücken der © -Taste geht der Rechner zur Bearbeitung 
der nächsten Zeile über. Das fortgesetzte Drücken der ] -Taste bewirkt also, 
daß das Programm wie üblich durchgeführt wird, nur sehr viel langsamer als 
im Normalzustand. Zwischendurch hat der Benutzer jederzeit die Möglichkeit, 
sich Programmzeilen anzusehen oder aktuelle Zwischenergebnisse abzurufen. 
Durch das Kommando 


| _TROFF [ENTER 


wird dieWirkungvon TRON [ENTER] wieder aufgehoben, der Trace-Zustand 
wird also wieder abgeschaltet. 


TRON und TROFF können auch als Befehle in einem Programm stehen 
(dann ohne ), die Wirkung ist die gleiche. Auf diese Weise ist es 
möglich, nur bestimmte Programmteile, die man genauer untersuchen möchte, 
im Trace-Zustand zu durchlaufen. 


2.5 Weitere Programmierbefehle und Kommentare 


Stehen mehrere Programme im Programmspeicher, so muß ein Startbefehl zur 
Verfügung stehen, der von einer vorgegebenen Zeilennummer n an alle Pro- 
grammzeilen bis zum nächsten END-Befehl abarbeitet. Das entsprechende 
Kommando heißt 


I RUNn 


Das Kommando RUN n arbeitet bezüglich der Zeilennummer n genauso wie 
LIST n. Läßt man die Zeilennummer weg, so wird die niedrigste belegte 
Zeilennummer angesprochen. Wichtig ist noch zu wissen, daß bei jedem 
Programmstart mit RUN ein früher gesetztes WAIT-Intervall erhalten bleibt. 
In Abschnitt 1.1 haben wir die manuelle Einstellung der Winkeleinheit be- 
sprochen. Der Betriebszustand DEG, RAD oder GRAD kann auch durch 
folgende Programmbefehle gewählt werden: 


n:DEGREE 
n:RADIAN 
n:GRAD 


Ebenfalls programmierbar ist die aus Abschnitt 1.4 bekannte Anweisung 
CLEAR, die alle Variablen zu Null setzt. Die Programmzeile lautet: 


I n:CLEAR 
Ein akustisches Signal ertönt, falls in einem Programmlauf die Programmzeile 
l n:BEEP m 


erreicht wird (nicht im PC-1246). Die natürliche Zahl m gibt dabei die Anzahl 
der Signaltöne an. Der BEEP-Befehl ermöglicht es, das Ende eines Programm- 
laufs oder die erforderliche Eingabe von Daten akustisch anzuzeigen. Ersetzt 
man m durch eine Variable, z.B. BEEPA, so wird m = INT(A) gesetzt für A>1. 
Programminhalt und Programmstruktur können durch Kommentare verdeut- 
licht werden. Der Kommentarbefehl in BASIC lautet 


| n: REM’ Text‘. 


Der Text darf so lang sein, wie eine Programmzeile es zuläßt. Der REM-Befehl 
wird nur bei der Programmauflistung berücksichtigt, beim Programmlauf aber 
übersprungen. 

Beispiele für die Anwendungen dieser Befehle werden wir in den nachfolgen- 
den Abschnitten kennenlernen. 
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2.6 Reservable Keys 


Bei den Rechnern PC-1251, PC-1260/61 und PC-1350 sind nicht alle Buch- 
staben- und Zeichentasten mehrfach belegt. 


Je nach den individuellen Wünschen eines Benutzers können hier den einfach 
belegten Tasten A], [S), D], [LE], (E. [H), I]. [x], LU, E], Z], RX, 
cd. M.B. N. M, durch eine Zweitbelegung weitere Funktionen 
zugeordnet werden. Diese Wahlmöglichkeit wird durch einen separaten Speicher 
realisiert. Die 18 Wahltasten heißen Reservable Keys, die Zweitbelegungen 
RESERVE-Ausdrücke und der Speicher RESER VE-Speicher. 

Um mit dem RESERVE-Speicher arbeiten zu können, muß zunächst mit 

Hilfe des Schiebereglers die Betriebsart RESERVE eingestellt werden. 
RESERVE-Ausdrücke können arithmetische Ausdrücke, arithmetische Anwei- 
sungen, Programmbefehle, Kommandos oder sonstige Zeichenketten sein. Die 
Zuordnung von RESERVE-Ausdrücken zu Reservable Keys erfolgt durch 


SHFT| Reservable Key RESERVE-Ausdruck |ENTER|. 


Beispiel: Der Taste A soll COS zugeordnet werden 





Eingabe Ausgabe 
RSV-Mode 


SHFT| A 
COS |ENTER 





Der Abruf der RESERVE-Ausdrücke ist in den Betriebsarten RUN und PRO 
möglich und erfolgt durch 


| Reservable Key. 


Die Reservable Keys im RUN-Mode sind insbesondere bei Funktionsauswer- 
tungen sinnvoll und kurzen Funktionsprogrammen wegen des einfacheren 
Aufrufs überlegen. 


Beispiel: Die Funktion 


y=arsinh (x) = In(x+ x? +1) 


soll für verschiedene x-Werte berechnet werden. 
Reservable Key (RESERVE-Mode): 


F:Y=LN(X+V (X=*X+1)) 


Aufruf (RUN-Mode) für x = 1: 


Eingabe Ausgabe 
x=1 1. 





SHFT] F Y=LN(X+YV (X*X+1)) 
ENTER 0.881373587 





Reservables Keys im PRO-Mode kann man verwenden, um immer wieder- 
kehrende Befehle wie INPUT, PRINT, USING usw. bestimmten Tasten zu- 
zuordnen. 

Die Korrektur von RESERVE-Ausdrücken ist nur im RESERVE-Mode mög- 
lich und stimmt fast überein mit der in Abschnitt 2.4 besprochenen Pro- 
grammkorrektur. Das Kommando 


|  new[EnTeR] 


löscht den gesamten RESERVE-Speicher. Durch 


| Reservable Key 


wird der zum Reservable Key gehörende RESERVE-Ausdruck in das Eingabe- 
register gebracht. Zur Korrektur sind alle in Abschnitt 2.4 besprochenen Mög- 


lichkeiten erlaubt. Der korrigierte Ausdruck gelangt durch |ENTER| wieder 
in den RESERVE-Speicher. Wird die zulässige Zahl von 48 Programmschritten 
überschritten, so erfolgt die Fehlermeldung 


| ERROR 6 


Die Zuordnung von RESERVE-Ausdrücken zu Reservable Keys können Sie 
auf die vom Hersteller beigelegte Abdeckschablone schreiben. 


Aufgabe 17: Wird eine Stahlkugel vom Durchmesser D mit einer Kraft F in die 
blanke Oberfläche eines Probestücks gepreßt, und ist d der Durchmesser der 
Eindruckfläche, so läßt sich nach Brinell die Härte der Probe berechnen nach 
der Formel: 


2F 
D(D- VD2-d) 
Sei D = 108 mm und F = 158 N. Berechnen Sie mit Hilfe eines Reservable 
Keys die Härten fürd = 1,2, 3, ..., 18 mm. 


H= 
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3 Höhere Programmiertechniken 


In den bisher beschriebenen BASIC-Programmen wird die Reihenfolge der 
Bearbeitung der Anweisungen dadurch festgelegt, daß die Zeilen in aufsteigen- 
der Reihenfolge der Zeilennummern abgearbeitet werden. Diese Reihenfolge 
kann nicht durchbrochen werden. Programme dieser Gestalt heißen /inear. 
Die Programmiertechniken dieses Kapitels schaffen Möglichkeiten, von der 
durch die Zeilennummern festgelegten Reihenfolge abzuweichen, wenn das 
wünschenswert ist. Erst mit diesen Anweisungen entfalten sich die Möglich- 
keiten programmpgesteuerter Rechner, hier erst beginnt die eigentliche 
Programmierung. 


3.1 Die Sprunganweisung 
Die elementarste Möglichkeit, von der festgelegten Reihenfolge abzuweichen, 
bietet der Sprungbefehl GOTO. Die Anweisung 
180: GOTO 2® 
bewirkt z. B., daß der Rechner nicht die Zeile bearbeitet, die auf Zeile 100 


folgt, sondern zur Zeile 2® springt und dort weiterarbeitet. Die allgemeine 
Form der Sprunganweisung ist 


I Zeilennummer: GOTO arithmetischer Ausdruck 


Der Rechner berechnet den ganzzahligen Anteil des arithmetischen Ausdrucks. 
Dieser muß als Zeilennummer im Programm tatsächlich vorkommen (andern- 
falls ERROR 11) und bildet das Sprungziel. Der Rechner springt in die ent- 
sprechende Zeile und setzt die Bearbeitung des Programms dort fort. 


Beispiel: Wie muß eine Konservendose aussehen, die einen Liter Suppe auf- 
nehmen kann und dafür möglichst wenig Material benötigt? 


Zu bestimmen ist der Radius r der Grundfläche und die Höhe h der Konser- 
vendose in cm. Ist r gegeben, so läßt sich h aus der Formel 


V=ar’h 
für das Volumen V berechnen, da ja V = 1080 cm? gelten soll: 
n - 1008 
nr? 


Damit ist dann auch die Oberfläche 
A = 2nr?+2rnrh = 2nr(r+h) 
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gegeben, die zum Materialverbrauch als ungefähr proportional angesetzt 
werden kann. Die Oberfläche, und damit der Materialverbrauch, steht also zu 
r in einem funktionalen Zusammenhang: 


2p 


r 





A=f(r) =2nr + 


Gesucht ist ein r, für das diese Funktion möglichst klein wird. 

Die einfachste Möglichkeit, dieses Problem zu lösen, besteht darin, sich 
zunächst einmal einen Überblick zu verschaffen, indem man die Funktion 
an verschiedenen Stellen auswertet, und dann das gesuchte Minimum nach 
und nach einzukreisen. Hierzu verwenden wir das folgende Programm: 


10: INPUT’ V="";V 40:A=2*n*R*(R+H) 
20: INPUT’R="; R 50:PRINTH 
30:H=V/(r*R*R) 60:PRINTA 


das sich auch für andere Volumen als 1000 cm? verwenden läßt. Für unser 
Problem müßten wir dieses Programm sehr häufig mit RUN starten und dann 
jedesmal neu das gleiche Volumen V = 1000 eingeben. Das ist unnötig, und 
wir schließen daher das Programm mit 


70:GOTO2® 


ab, wodurch direkt nach Ausgabe von H und A und Drücken der |ENTER]|- 
Taste ein neues R eingegeben werden kann. 


Nach Eingabe von 
V= 1000 
ergeben sich z. B. die folgenden Werte: 

















Eingabe Ausgabe 
Radius (cm) H (cm) A (cm?) 

r 1: | 
1 318.3098862 2006.283185 
5 12.73239545 557.0796328 
10 3.183098862 828.3185307 
7 6.496120126 593.5903658 
6 8.841941283 559.5280044 
4 19.89436789 600.530965 
5.5 10.52264087 553.7027193 
5.3 11.33178662 553.8531658 
5.4 10.91597689 553.5880638 
5.45 10.71660251 553.5832156 
5.42 10.83556481 553.5810548 
5.41 10.87565938 553.5826631 
5.415 10.85558433 553.581387 
5.418 10.84356597 553.5810746 

| 541 9 10.83956428 553.5810458 





Der letzte Wert ist der beste. Es scheint nicht sinnvoll zu sein, eine größere 
Genauigkeit anzustreben. Die exakten Werte für das Minimum sind 


5.419260701 10.8385214 553.5810444 


An diesem Beispiel zeigen sich deutlich die Vorteile des Dialogbetriebs: Man 
kann auf einfache Weise neue Daten eingeben und sich dabei von den bishe- 
rigen Ergebnissen des Rechners leiten lassen. 

Das Programm, das hier benutzt wurde, hat kein Ende, es wird im Prinzip 
unendlich oft durchlaufen. Nachdem eine hinreichende Genauigkeit erzielt 
worden ist, können wir den Programmlauf unterbrechen: Drückt man nach 
Ausgabe der letzten Zahlenwerte die [ON]-Taste, so wird das Programm in 
Zeile 58 unterbrochen. Im Anzeigefeld erscheint 


BREAK IN 50 


Der Rechner kann jetzt wieder für andere Zwecke benutzt werden, etwa zum 
Neustart des Programms mit einem anderen Wert für das Volumen oder für 
ein neues Programm. Die Unterbrechung kann aber auch wieder aufgehoben 
werden durch Eingabe von 


| cont 


Der Programmlauf wird dann mit der nächsten Zeile fortgesetzt, in unserem 
Beispiel also mit Zeile 60. 


3.2 Die bedingte Sprunganweisung (IF — THEN) 


Nur in seltenen Fällen ist die Sprunganweisung GOTO für sich allein schon 
sinnvoll. Zwar kann man mit ihr die lineare Struktur eines Programms durch- 
brechen, doch führt sie stets zu Schleifen, aus denen man wiederum nicht 
ausbrechen kann. 


Beispiel: Das folgende Programm dient der Berechnung der Farbmenge, die 
für den Innenanstrich eines rechteckigen Zimmers benötigt wird. Zunächst ist 
die pro Quadratmeter benötigte Farbmenge Q einzugeben, sodann die Maße 
des Zimmers. Dann wird die anzustreichende Fläche A (Wände und Decke) 
berechnet, schließlich die für diese Fläche benötigte Farbmenge M, die ausge- 
geben wird: 


18:INPUT "FARBE PROQOM';Q 
20: INPUT "HOEHE’;H 

30: INPUT “LAENGE‘';L 
40:1NPUT "BREITE’';B 
50:A=L*B+2*H*(L+B) 
1086:M=A*Q 
110:PRINT "MENGE=";M 


Will man jetzt noch Türen und Fenster berücksichtigen, deren Fläche von der 
Gesamtfläche abzuziehen ist, kann man die Zeilen 


60: INPUT’FENSTERHOEHE“;H 
78: INPUT“FENSTERBREITE';B 
80:A=A-H*B 
einfügen. Diese drei Befehle sind solange zu wiederholen, bis alle Fenster und 


Türen erfaßt sind. Zur Vermeidung überflüssiger Programmierarbeit scheint es 
daher sinnvoll, die Zeile 


98:GOTO 60 


einzufügen und nach Berücksichtigung aller Fenster und Türen mit den Zeilen 
100 und 11@ fortzufahren. 

Das funktioniert aber nicht! Der Rechner bearbeitet nacheinander die Zeilen 
10, 20, 30, 40, 50, 60, 70, 80, 90, 60, 70, 80, 90, 60, ... usw. und erreicht nie 
die Zeile 109. Er steckt in einer Endlosschleife, aus der er nicht wieder her- 
auskommt, es sei denn, das Programm wird von „außen‘ durch Drücken der 


[ON |-Taste unterbrochen. 


Der Grund hierfür liegt darin, daß der Rechner nicht wissen kann, daß alle 
Fenster und Türen erfaßt sind, wir müssen es ihm schon mitteilen. Das kön- 
nen wir z. B. dadurch, daß wir in Zeile 60 eine ® eingeben, die als Fensterhöhe 
ja nicht vorkommen kann. H = ® soll für den Rechner das Signal sein, aus der 
Schleife auszusteigen. Dies wird bewirkt durch 


65: IF H = ÖTHEN 100 


d.h. falls H = ®, dann gehe nach Zeile 100, andernfalls setze mit der nächsten 
Zeile 70 fort. 


Die bedingte Sprunganweisung hat die allgemeine Form 
| n,:1IF Vergleich THEN nz 


nı und nz sind dabei Zeilennummern, wobei na auch als arithmetischer Aus- 
druck geschrieben sein kann wie bei der GOTO-Anweisung., 

Der in der bedingten Sprunganweisung auftretende Vergleich hat die allge- 
meine Form 


| arithmetischer Ausdruck ® arithmetischer Ausdruck 
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wobei ® für einen der folgenden Vergleichsoperatoren steht: 











— 
BASIC-Symbol Bedeutung mathematisches Symbol 





gleich 

kleiner als 

größer als 

kleiner oder gleich 
größer oder gleich 
ungleich 





u 
EA 





Trifft der Rechner auf eine bedingte Sprunganweisung, so berechnet er 
zunächst die arithmetischen Ausdrücke im Vergleich und stellt dann fest, 

ob die im Vergleich gemachte Aussage richtig oder falsch ist. Ist sie richtig, 
so setzt der Rechner wie bei der Anweisung GOTO n3 fort, d.h. er berechnet 
den arithmetischen Ausdruck n, und spring zur entsprechenden Zeile. Ist 
dagegen die Aussage falsch, so wird mit der auf n, folgenden Zeile im Pro- 
gramm fortgesetzt. 


Aufgabe 18: Bei der Bestimmung der Lösungen 


a v5 a a? 
xı=75t zb 2777 z. 


der quadratischen Gleichung 
x +axtb=0 


sind die Fälle reeller oder konjugiert komplexer Lösungen zu unterscheiden, 
je nachdem ob 

®_,>9 oder @_u<o. 

4 4 

Man schreibe ein BASIC-Programm, das beide Fälle erfaßt. Im Falle reeller 
Lösungen sollen die reellen x} und xz, im Falle komplexer Lösungen deren 
Real- und Imaginärteil ausgegeben werden. 


3.3 Flußdiagramme 


Bei schwierigen Problemen und entsprechend komplizierten Verfahren zu 
ihrer Lösung wird man das Programm kaum noch direkt in den Rechner 
eingeben können, ohne dabei die Übersicht zu verlieren. In solchen Fällen ist 
es sinnvoll, sich zunächst die logische Struktur des Programms graphisch zu 
verdeutlichen. 


Beispiel: Lösung der quadratischen Gleichung 


x? +ax+b=0 (siehe Aufgabe 18) 


Die logische Struktur des Verfahrens ist in erster Linie gekennzeichnet durch 
die Fallunterscheidung, ob die Lösungen reell oder konjugiert komplex sind. 
Dies wird durch das folgende Diagramm deutlich: 















Berechnung der 
reellen Lösungen 
X1 und X2 


Ausgabe: 
x1,X%2 


Die beiden B/ockanweisungen 


Berechnung des 
Realteils RE und 
des Imaginärteils IM 


Ausgabe; 
RE, IM 









Berechnung der 
reellen Lösungen und 


Berechnung des 
Realteils RE und 
des Imaginärteils IM 






xX1 und X2 





bleiben noch auszufüllen: 


X1=-A/2+,VD d RE=-A/2 
x2=-A/2-\/D u" IM=/-D 


bevor das so entstandene F/ußdiagramm in ein Programm umgesetzt werden 
kann. 
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Die folgende Tabelle enthält die in Flußdiagrammen gebräuchlichen Symbole, 
soweit sie bisher behandelten BASIC-Anweisungen entsprechen. 





Symbol Bedeutung 





GB) START oder ENDE eines Programms 


Wertzuweisung 


Ein- oder Ausgabeanweisung 


Vergleich mit zwei Ausgängen (ja — nein) 


[| 
l_] Blockanweisung, Programmteil 
Fe 
<> 
OÖ 





Verbindungsstelle 
— Flußlinie zur Kennzeichnung der Reihenfolge 


Beispiel: Newton- Verfahren 
Das in den meisten Fällen effektivste Verfahren zur Bestimmung einer Lösung 
der Gleichung 


t(x)=9 


mit einer gegebenen Funktion f (x) ist das Newton-Verfahren. Ausgehend von 
einem Startwert xo wird die /teration 


en) 

ER) 

durchgeführt, wobei f’(x) die erste Ableitung von f (x) ist. Die Zahlen x; 
konvergieren gegen die gesuchte Lösung, falls der Startwert xo genügend nahe 
bei der Lösung lag, andernfalls können sie auch divergieren. Da man das vor- 
her oft nicht weiß, sollen maximal N Iterationsschritte durchgeführt werden. 
Der erreichte Wert x;+ ı soll als gut genug gelten, wenn er sich von seinem 
Vorgänger x; nicht um mehr als eine kleine Zahl D unterscheidet. 








XK+ı = % 


Fiußdiagramm: 











Eingabe: 
X (Startwert) 

N (Begrenzung der 
Iterationsschritte) 
D (Genauigkeit) 





ja 








Ausgabe: 
x 









Beispiel: Für eine Kreditaufnahme von insgesamt 4B09,— DM liegen die 
folgenden Angebote vor: 

— Rückzahlung in 18 Monatsraten zu je 249,30 DM, 

— Rückzahlung in 24 Monatsraten zu je 193,50 DM, 

— Rückzahlung in 3 Monatsraten zu je 160,— DM, 

— Rückzahlung in 36 Monatsraten zu je 137,80 DM. 
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Welches Angebot ist am günstigsten? 

Die Antwort auf diese Frage ist natürlich auch von den finanziellen Verhält- 
nissen des Kreditnehmers abhängig. Trotzdem ist es sinnvoll, ein Maß zu 
haben, durch das sich Kreditangebote mit unterschiedlichen Laufzeiten mit- 
einander vergleichen lassen. Ein solches Maß ist der effektive Monats- oder 
Jahreszins, mit dem auch in Zeitungsanzeigen (Autokauf) für Kreditangebote 
geworben, der aber häufig nur ungenau berechnet wird. 

Ist K der Betrag (in DM) des aufgenommenen Kredits, R der monatlich zu- 
rückgezahlte Betrag (in DM), p der effektive Monatszins (in %) und 


ern 
“700% ' 
so ist 
(1+x)"-1 
K„=K(1+x)"-R ge 
die nach n Monaten noch bestehende Restschuld. Ist m die Laufzeit des 
Kredits, so ist also Km = 0. Aus den Größen K, m und x läßt sich dann leicht 
die monatliche Ratenzahlung berechnen: 


_ Kx (1+x)” 
(1+x)m -1 


Ist umgekehrt K, m und R vorgegeben, so ist x = p/100 % die positive Lösung 
der Gleichung 

f(x) = (1+x)”(Kx-R)+R=0. 
x läßt sich nicht exakt, sondern nur näherungsweise berechnen, z. B. mit dem 
Newton-Verfahren. Die deutschen Banken geben für x die Näherungsformel 

mR-K 

x= 2 m+i)K 

an. 


Aufgabe 19: Man schreibe ein Programm zur Bestimmung des effektiven 
Monatszinses aus den Größen K, m und R. Man wähle dabei als Ausgangs- 
näherung den von den Banken angegebenen Näherungswert. 


3.4 Die Laufanweisung 


Bei der wiederholten Durchführung ein und derselben Befehlsfolge wie in den 
zuletzt betrachteten Beispielen kann man häufig anstelle von GOTO- und 
IF-THEN-Anweisungen auch Laufanweisungen benutzen, die einfacher zu 
programmieren sind. 
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Beispiel: Wertetabelle 
Bei dem eben betrachteten Newton-Verfahren zur Bestimmung der Lösung 
einer Gleichung f (x) = ® muß der Startwert genügend nahe bei der Lösung 
liegen. Um das zu erreichen, ist es i. a. sinnvoll, sich zunächst einen Überblick 
über die Funktion zu verschaffen. Dazu soll in einem gegebenem Intervall 
[a, b] eine Tabelle der Funktionswerte erstellt werden, und zwar ann + 1 
äquidistant verteilten Stützstellen. Die Schrittweite ist h = (b - a)/n; f (x) muß 
fürx=a,a+th,a+t2h,....a+ nh = b berechnet und ausgegeben werden. Das 
Programm hierfür kann mit GOTO- und IF-THEN-Anweisungen geschrieben 
werden. Einfacher ist aber das folgende Vorgehen, demonstriert an der Funk- 
tion f(x) se” -x: 

18: INPUT "A ="; A, "B=";B, "N=“;N 

20: H = (B- A)/N 

36: FORI=0TON 

408:X=A+tI*H 

50:Y=EXP(-X) -X 

60: PRINTX,Y 

70: NEXTI 

80: END 
Die Zeilen 3 bis 7® enthalten eine Laufanweisung. Sie bewirkt, daß die 
Anweisungen 48 bis 60 für die Werte I = 9, 1, .... N durchgeführt werden. 
Die allgemeine Form der Laufanweisung lautet: 


zo: FOR Variablenname = a; TO a2 STEP az 
21: 
Blockanweisung aus m Zeilen 


za: 
Zm+1: NEXT Variablenname 


a}, a2 und az sind arithmetische Ausdrücke. Der Wert von a, heißt Anfangs- 
wert, der Wert von aa Endwert und der Wert von az Schrittweite der Lauf- 
anweisung. Nach FOR und NEXT muß der gleiche Name stehen, der die 
Laufvariable bezeichnet. 


Hierbei ist zu beachten: 


a3 = Ö ist verboten 
Ist a3 = 1, so kann STEP a3 weggelassen werden. 


Die hier behandelten Rechner bearbeiten Laufanweisungen auf unterschied- 
liche Weise. Im Falle a3 >O wird die Wirkungsweise durch die folgenden Fluß- 
diagramme beschrieben: 
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PC-1246/1247/1251 PC-1260/1261/1350/1401 





Der Unterschied besteht darin, daß links der letzte Wert der Laufvariablen, für 
den die Blockanweisung ausgeführt wird, größer als a, sein kann, was rechts 
nicht möglich ist. 

Im Falle a3 <® ist die Wirkungsweise einer Laufanweisung die gleiche mit 
dem einen Unterschied, daß jeweils | > a, (links) bzw. I > az (rechts) abge- 
fragt wird. 

Mit dem folgenden Programm läßt sich überprüfen, welche Werte die Lauf- 
variable bei verschiedenen Laufanweisungen durchläuft: 


18:INPUT A,B,C 
28:FORI=ATOBSTEPC 
30: PRINT I 

40: NEXT I 

50: END 


Weitere Unterschiede: 











PC-1246/1247/1251 





PC-1260/1261/1350/1401 








Die Werte von a, , a2 und az müssen | Die Werte von a,, aa und ag 
zwischen — 32768 und 32767 liegen können beliebig sein 






Im Falle a3 = ® wird eine Im Falle a3 = ® gerät der Rechner 
Fehlermeldung ausgegeben in eine Endlosschleife 















Es werden auch die Stellen nach 
dem Dezimalpunkt berücksichtigt 


Von a, und a3 werden nur die 
ganzzahligen Anteile verwendet 











Normalerweise reichen Laufanweisungen mit ganzzahligen Anfangs- und 
Endwerten und Schrittweiten 1 oder — 1 aus. In diesem Fall reagieren die 
hier betrachteten Rechner gleich. 
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Um Fehler zu vermeiden, sollte man niemals in der Blockanweisung der Lauf- 
variablen einen Wert zuweisen. Ein solches Vorgehen führt zwar zu keiner 
Fehlermeldung, wohl aber zu falschen Ergebnissen. 


Um Laufanweisungen in Flußdiagrammen zu kennzeichnen, verwenden wir 


das folgende Symbol: 
Laufvariable= A1, A2, A3 


| Blockanweisung | 






Wie im BASIC-Programm wird im Falle A3 = 1 A3 weggelassen. 


Der Beginn (FOR) und das Ende (NEXT) einer Laufanweisung stellen im 
Programm gewissermaßen eine Klammer dar, die durch die Laufvariable 
gekennzeichnet ist. Wie auch in arithmetischen Ausdrücken, kann man mehre- 
re solcher Klammern“ ineinander verschachteln. Dabei ist auf die richtige 
Klammersetzung zu achten: 


Richtige Schachtelung Falsche Schachtelung 

FORI=... "FORI=... 

FOR J=... FOR J=... 

NEXT J NEXTI 

NEXTI NEXT J 

Der Rechner kann mit einer Anweisung NEXT I nichts anfangen, wenn nicht 
noch ein FOR I= ... sozusagen „offen‘’ ist. Deshalb darf man niemals mit 


einer GOTO- oder IF-THEN-Anweisung von außen in eine Laufanweisung 
hineinspringen. Es ist aber erlaubt, aus einer Laufanweisung vorzeitig hinaus- 
zuspringen. 


Beispiel: Das Newtonverfahren aus Abschnitt 2.6 enthält implizit bereits eine 
Laufanweisung, die die Beschränkung der Anzahl der Iterationsschritte regelt. 
Die Variable I durchläuft die Werte von 1 bis N. Das Flußdiagramm läßt sich 
entsprechend umschreiben. 


Aufgabe 20: Man baue die Laufanweisung entsprechend dem folgenden Fluß- 
diagramm in das Programm aus Aufgabe: 19 ein. 
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Flußdiagramm zum Newton-Verfahren: 








Eingabe: 
xX,N,D 


Y=f(x) 
Zz=f (x) 


ja 


O 


Ausgabe: 
“Schlechter Startwert 







Beispiel: Numerische Integration 
Für eine gegebene Funktion y = f (x) ist das bestimmte Integral 


b 
I = [ro dx 


gesucht. Hierzu gibt es eine Reihe von Näherungsformeln. Zu ihrer Konstruk- 
tion wird das Integrationsintervall [a, b] in n gleichgroße Teilintervalle der 
Länge h = (b - a)/n unterteilt. 
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Bei der Mittelpunktsformel wird die Funktion in der Mitte der Teilintervalle 
ausgewertet: 


Mn = Inder (i-3)») 


Bei der Trapezformel wird die Funktion an den Endpunkten der Teilintervalle 
ausgewertet: 


Ta= Dztttarti-nn) + f(a+ih)) 


Die Simpsonformel mit insgesamt 2n + 1 Funktionsauswertungen ergibt sich 
aus M, und T„ durch 


2 1 
Szn=3 Mntz2 Tn 


Auch die Trapezformel mit der doppelten Anzahl von Teilintervallen ergibt 
sich ohne zusätzliche Funktionsauswertungen: 


Tan = (M, + Tn)/2 


Die Zahlen M,, T„ und S„ stellen Näherungen an das Integral I dar, die mit 
wachsendem n immer besser werden. 


Das folgende Verfahren berechnet nacheinander 
T}; Mı,S2, T2; Ma, Sa, Ta; Ma, Ss, Ts; ... usw. 


Die Anzahl der Teilintervalle wird jeweils verdoppelt, wodurch man Funk- 
tionsauswertungen spart. Die aktuellen Werte für die drei Näherungsformeln 
werden jeweils ausgegeben. Im Kern des Verfahrens steht eine Laufanweisung 
zur Berechnung der neuen Mittelpunktsformel. 
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Flußdiagramm zur numerischen Integration: 


Eingabe: 
A,B 











56 


Das zugehörige Programm für die Funktion f (x) = ex? lautet: 


18:1INPUT "A =";A 

20: INPUT “B="';B 
30:H = (B-A)/2 
40:T=H*(EXP(-A*A)+EXP(-B*B)) 
50:N=1 

60:M=0 

78: FORI=1TON 
80:X=A+(2*I-1)*H 
98:Y=EXP(-X*xX) 
106:M=M+Y 

110: NEXTI 
128:M=2*H*M 
138:5=(2*<M + T)/3 
146:T=(M+T)/2 

150: PRINT ’M="', M 
160: PRINT ‘T=",M 
170:PRINT "S=",S 
180:N=2*N 

198: H = H/2 

200: GOTO 60 


Nach Eingabe von A = ® und B = 1 ergeben sich die folgenden Werte: 





Mittelp. 


Simpson 


7.788007E-01 
0.754597944 
7.487471E-01 
7.473035E-01, 
7.469439E-01 


7.313702E-01 
0.742984098 
7.458656E-01 
7.465845E-01 
0.746764255 


7.A71804E-91 
0.74685538 
7.468261 E-01 
7.468242E-01 
0.746824141 





Die Werte der Simpsonformel haben sich auf 6 Stellen stabilisiert, während 
die Werte für die Mittelpunkts- und die Trapezformel noch nicht soweit sind. 
Fast immer liefert die Simpsonformel die genauesten Näherungswerte. Nur 
bei der Integration periodischer Funktionen (z. B. Überlagerung von Schwin- 
gungen) über die volle Periode liefert die Trapezformel die besseren Werte. 
Zum Abbruch des Programmlaufs ist die [ON]-Taste zu drücken. Bei einem 
Neustart kann ein anderes Integrationsintervall gewählt werden. Will man aber 
eine andere Funktion integrieren, so muß das Programm in den Zeilen 40 und 
9® geändert und die Funktion EXP (- X * X) durch eine andere ersetzt wer- 
den. Im nächsten Abschnitt wird gezeigt, wie sich dieses Problem etwas 
eleganter lösen läßt. 
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Aufgabe 21: Man schreibe ein BASIC-Programm zur Berechnung von 
=1:2:3-..n 
für eine positive, ganze Zahl n. 


Aufgabe 22: Reihenberechnung 
Der Integralsinus Si (x) ist definiert durch 


x 
Si(x) rn dt. 
® 


Zur Berechnung von Si (x) könnte man das obige Programm zur nume- 
rischen Integration verwenden, wobei zu beachten wäre, daß der Integrand 
für t= ® den Wert 1 hat. Eine effektivere Methode besteht darin, Si (x) als 
unendliche Reihe darzustellen und diese näherungsweise zu berechnen: 


gar 


Si(x)=x -n' 


3-3! +5. 5I 7 Ei re 


Man schreibe ein BASIC-Programm zur Berechnung der Näherung 


zit 


Bir 1) (2i+1)! ze 


Si(x) = 
nach Eingabe von x und n. Zur Verringerung des Rechenaufwandes beachte 
man, daß sich die Summanden leicht auseinander berechnen lassen. 


3.5 Unterprogramme 


In dem Programm aus 3.4 zur numerischen Integration mußte die zu inte- 
grierende Funktion an drei Stellen des Programms ausgewertet werden, 
nämlich zweimal in Zeile 40 und einmal in Zeile 90. Das erfordert erhöhte 
Tipparbeit, was bei komplizierteren Funktionen ärgerlich wird, und zwar 
besonders dann, wenn das Programm zur Integration verschiedener Funk- 
tionen an diesen Stellen dauernd geändert werden muß. 


Diese Arbeit läßt sich erleichtern, wenn man die Funktionsauswertung 
Y = f(X) aus dem eigentlichen Programm, das Hauptprogramm genannt 
werden soll, auslagert in ein Unterprogramm (engl. Subroutine): 


Ei > 
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Der Befehl 
| 21:GOSUB z» 


im Hauptprogramm bewirkt, daß der Rechner zunächst nicht mit der Zeile 
fortsetzt, die auf Zeile z} folgt, sondern zur Zeile z2 springt wie bei der 
Anweisung GOTO za». Der Rechner setzt dort seine Arbeit in der üblichen 
Weise fort, bis er auf einen Befehl 


| Z3: RETURN 
trifft. Dieser Befehl veranlaßt den Rechner, zurückzuspringen und mit der auf 


den GOSUB-Befehl folgenden Anweisung fortzusetzen. 


Für das Programm aus 3.4 zur numerischen Integration läßt sich diese Unter- 
programmtechnik folgendermaßen verwenden: 


Man ersetzt Zeile 4B durch 


40:X=A 
41:GOSUB 399 
42:T=Y 
43:X=B 


44:GOSUB 300 
45:T=(T+Y)*H 


und Zeile 90 durch 
90: GOSUB 309 
und ergänzt das Programm durch das Unterprogramm 
300:Y=EXP(-X*xX) 
310: RETURN 
Dies mag zunächst nach mehr und nicht weniger Tipparbeit aussehen. Das 
ändert sich aber, wenn die numerische Integration auch für andere Funk- 
tionen durchgeführt werden soll. Dann muß nämlich nur noch die Zeile 300 
geändert werden, während das Hauptprogramm unverändert bleibt. 
Trifft der Rechner bei der Programmdurchführung auf einen RETURN-Befehl, 
ohne vorher einen GOSUB-Befehl durchlaufen zu haben, so gibt er eine 
Fehlermeldung aus. 


Aufgabe 23: Man schreibe ein Programm für das Newton-Verfahren aus 3.4, 
indem man die Berechnungen Y = f(X) und Z = f’ (X) in einem Unterpro- 
gramm durchführt, das an geeigneter Stelle aufgerufen wird. 


Beispiel: Minimum einer Funktion 

Für eine stetige Funktion y = f(x) soll ein (lokales) Minimum ohne Hilfe der 
Differentialrechnung näherungsweise bestimmt werden. Ein solches Problem 
ist bereits in 3.1 (minimale Oberfläche einer Konservendose) durch Probieren 
gelöst worden. Für eine systematische Minimumsuche gehen wir von folgen- 
der Beobachtung aus: Istxı <x2 <xa und f(x}) > f(x2) <f(xy), so hat 
die Funktion f (x) im Intervall [xı, xa] ein (lokales) Minimum. 
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X x x x 


Im ersten Teil des Verfahrens sollen daher drei Werte x}, x2 und x, mit dieser 
Eigenschaft bestimmt werden. Ausgangspunkt ist dabei ein Startwert x} und 
eine Anfangsschrittweite h in Richtung des Abstiegs der Funktion f (x). Vom 
Startwert ausgehend werden mit größer werdender Schrittweite h nacheinan- 
der Funktionswerte f (x;) bestimmt, bis die oben beschriebene Situation auf- 
tritt. Die Zahl der Versuche soll dabei durch eine einzugebende positive, 
ganze Zahl n begrenzt sein. 

Ist bereits für die Anfangswerte f (x}) <f (x, + h), so wird der dritte Punkt 
auf der anderen Seite von x; gesucht. Findet man ihn dort nicht, so kann 
davon ausgegangen werden, daß h das falsche Vorzeichen hat, daß man also, 
von xı aus gesehen, das Minimum in der falschen Richtung sucht. 

Im zweiten Teil des Verfahrens wird das gefundene Intervall [x}, x4], in dem 
das Minimum liegen muß, nach und nach verkleinert. Dies geschieht dadurch, 
daß man einen Punkt x3 zwischen x2 und x, auswählt und f (x3) bestimmt. 
Ist dann f (x2) <f (x3), so liegt das Minimum im Intervall [x,}, x3], andern- 
falls im Intervall [x2, x4]. Die beste Intervallverkleinerung, die sich auf diese 
Weise fortgesetzt und mit Sicherheit erreichen läßt, ist die Verkleinerung um 
den Faktor 


s= (1 +./5)/2 = 1.618033989 . 


Hierzu ist das Intervall [x}, xa] folgendermaßen aufzuteilen: 


H— 4 43 
x x%2 %3 X: 


wobei X3 = x =%X4 — X2 = (xa "- xı)/s (Goldener Schnitt). 


Aufgrund dieser Tatsache sollen bereits im 1. Teil des Verfahrens die Werte 
X1,X2 und x, in diesen Größenverhältnissen bestimmt werden. 
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Der 2. Teil des Verfahrens beginnt also mit drei Werten x}, x2 und x4 mit 
xXaxX2 = (xa-xı)/s: 


u 
xXı xX2 xXa 


Im Verlauf der weiteren Intervallverkleinerung fällt jeweils einer der beiden 
Randpunkte x4 oder x, aus der weiteren Betrachtung fort, je nachdem, ob 
f(x2) <f(x3) oder nicht. Entsprechend sind zwei verschiedene Fälle zu 
unterscheiden, 














Fall 1: f(x2) <f(x3) Fall 2: f(x2) >f(x3) 
m t = 

alt xı x2 x3 

neu %ı xX3 xa 








die unterschiedliche Umnumerierungen der Variablen x; erfordern, bevor das 
Verfahren fortgesetzt werden kann. Diese Intervallverkleinerung soll solange 
fortgesetzt werden, bis die Länge des Intervalls [x}, x4] unterhalb einer gege- 
benen Genauigkeit d liegt, die zu Beginn des 2. Teils einzugeben ist. 


Im anschließenden Flußdiagramm und Programm werden die folgenden 
Variablen benutzt: 


ee Te | 
P x 


Q 
R 
T 
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Flußdiagramm zur Minimumsuche, 1. Teil 






Eingabe: 
P,H,N 


S=(1+,/5)/2 
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Fiußdiagramm zur Minimumsuche, 2. Teil 






Eingabe: 
D 
Ausgabe: 
P,T 


I wstir | 



















=T-H 





Programm zur Minimumsuche: 


1:REM MINIMUMSUCHE 

10: INPUT "’STARTWERT=';P 

20.INPUT "SCHRITTWEITE=";H 

30: INPUT "MAX. SCHRITTE=";N 

40:5=(1 +,/5)/2 

49: REM SUCHE DES ANFANGSINTERVALLS 
50:X=P 

60: GOSUB 1090 

78:U=Y 

80:Q=P+H 

98:xX=Q 

100:GOSUB 1000 

110:V=Y 

120: IFU<V THEN 270 

130: FORI=1TON 

140:H=S*H 

150:T=Q+H 

160:X=T 

170: GOSUB 1000 

180:2=Y 

190: IFV<Z THEN 500 

200:P=Q 

210:U=V 

220:Q0=T 

230:V=Z 

240: NEXTI 

250: PRINT "KEIN MINIMUM“ 

260:GOTO 990 

270:T=Q 

280:2=V 
290:Q=P 
300:V=U 
310:P=Q 
320:X=P 
330:GOSUB 1000 

348:U=Y 

350: IFU > V THEN 500 

360: PRINT "FALSCHE RICHTUNG“ 

370: GOTO 998 

500: REM INTERVALLVERKLEINERUNG 
519 :INPUT “GENAUIGKEIT=";D 
520:WAITO 

5306:PRINTP,T 
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549:R=P+H 

550:X=R 

560:GOSUB 1000 
570:W=Y 
580:IFABS(T-P) <DTHEN 800 
590:H=H/S 

600:IF V<W THEN 660 
618:P=Q 

620:U=V 

630:Q=R 

640: V=W 

650: GOTO 530 

660: T=R 

670:Z=W 

686:R=Q 

690: W=V 

706:PRINTP,T 
716:Q=T-H 

7206:X=Q 

738: GOSUB 1000 

740:V=Y 

750:GOTO 580 

800:WAIT 

818:PRINTP,T 

990:END 

999: REM FUNKTIONSAUSWERTUNG 
1000: Y=2*7*X*X +2000/xX 
1010: RETURN 


Anmerkungen zum Programm: 


1. Die zur Minimumsuche benötigten Funktionsauswertungen werden in 
einem Unterprogramm durchgeführt, das in Zeile 10@0ff. steht. Im hier 
aufgeführten Programm wird für die bereits in 3.1 betrachtete Funktion 
ein Minimum gesucht. 

2. Die Zeilen 10 bis 370 enthalten den ersten, die Zeilen 500 bis 990 den 
zweiten Teil des Verfahrens. 

3. Im zweiten Teil des Verfahrens werden die jeweils aktuellen Werte von 
Xı und x, ausgegeben, ohne daß der Programmlauf unterbrochen wird 
(wegen Zeile 520). Das führt zu einem schnellen Wechsel der Zahlen im 
Anzeigefeld. Wer dies ändern will, muß die Zeile 520 ändern bzw. löschen. 

4. Zeile 800 hebt die Wirkung von Zeile 52® auf. Sodann wird das Endergeb- 
nis dauerhaft ausgegeben. Wer weitere Informationen wünscht (z.B. 
Funktionswerte), muß entsprechende Anweisungen zwischen Zeile 819 
und Zeile 990 einfügen. 
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Programmdurchführung: 


A. Vor dem Start des Programms ist dafür zu sorgen, daß in den Zeilen 
1089 ff. die richtige Funktion ausgewertet wird. 

B. Nach dem Start des Programms mit RUN fragt der Rechner 
zunächst nach dem Startwert x, der Schrittweite H und der maximalen 
Schrittzahl N. Hierbei ist dafür zu sorgen, daß H das richtige Vorzeichen 
hat: Liegt x, links vom (vermuteten) Minimum, so muß H positiv sein, 
andernfalls negativ. 

C. Gibt der Rechner „falsche Richtung‘ aus, so wurde das Vorzeichen 
von H falsch gewählt, man starte also das Programm noch einmal mit 
geändertem Vorzeichen. Wird auch jetzt noch „falsche Richtung‘ aus- 
gegeben, so muß in der Nähe des Startwerts x, ein lokales Maximum 
liegen. In diesem Falle wiederhole man die Prozedur mit verkleinerter 
Schrittweite H. 

D. Gibt der Rechner „kein Minimum‘ aus, so besitzt entweder die Funktion 
f (x) tatsächlich kein Minimum oder die Versuche führten nicht weit genug 
vom Startwert xı weg. Man starte das Programm mit vergrößertem H und 
N erneut. Wenn f (x) ein Minimum besitzt, wird dieses Verfahren irgend- 
wann zum Ziel führen. 

E. Fragt der Rechner durch „‚Genauigkeit=‘" nach der zu erzielenden Genauig- 
keit D, sohat er Teil 1 des Verfahrens bereits durchlaufen und ein Anfangs- 
intervall [x1, Xa ] bestimmt. Nach Eingabe von D wird dieses Intervall bis 
auf die gewünschte Genauigkeit verkleinert. Die Zwischenergebnisse er- 
scheinen kurz im Anzeigefeld, der Rechner stoppt mit dem Endergebnis. 
Das Minimum liegt zwischen den beiden Zahlen im Anzeigefeld. 


Zahlenbeispiele (mit dem Unterprogramm Y =2 *» 7 * X * X + 2000/X): 
a) Startwert = 6, Schrittweite = 1, Maximale Schrittzahl = 1® 
Ausgabe: falsche Richtung 
b) Startwert = 2, Schrittweite = ..1, Maximale Schrittzahl = 5 
Ausgabe: kein Minimum 
c) Startwert = 2, Schrittweite = .5, Maximale Schrittzahl = 5 


Endergebnis 
Genauigkeit = x1 x4 


.01 5.416407867 5.422985676 





.001 5.418920367 5.419880056 
.0091 5.419233453 5.419319988 
.00091 5.419312184 5.419319988 





exakter Wert: 5.419260701 


66 


Für die Genauigkeiten .®1, .001 und .Ö®01 wird das Minimum tatsächlich von 
den Zahlen im Anzeigefeld eingeschlossen, für die Genauigkeit .d00®1 dage- 


gen nicht. Woran liegt das? 


Um dieser Frage nachzugehen, lassen wir uns vom Rechner die letzten Werte 


x1,xX2,xX3, X4 und die zugehörigen Funktionswerte ausgeben: 


D = .001 xX1 = 5.418920367 Y1 = 553.5810468 
x2 = 5.419286935 Y2 = 553.5810446 
xX3 = 5.419513487 Y3 = 553.5810458 
x4 = 5.419880056 Y4 = 553.5810518 
D = .0001 x1 = 5.419233453 Y1 = 553.5818446 
x2 = 5.419266506 Y2 = 553.5810446 
x3 = 5.419286935 Y3 = 553.5810446 
xX4 = 5.419319988 Y4 = 553.5810447 
D = .00001 x1 = 5.419312184 Y1 = 553.5810446 


x2 = 5.419315166 
x3 = 5.419317006 
x4 = 5.419319988 


Y2 = 553.5810446 
Y3 = 553.5810447 
Y4 = 553.5810447 


Man sieht, daß die Y-Werte auf ungefähr doppelt soviele Stellen miteinan- 
der übereinstimmen wie die X-Werte. Das liegt daran, daß die Ableitung 
einer Funktion, sofern sie differenzierbar ist, in einem (lokalen) Minimum 
verschwindet, weshalb die Funktionswerte sich in der Nähe eines Minimums 
nur sehr wenig ändern. 

Bei D = .0001 sind für den Rechner (d.h. bei 1®-stelliger Genauigkeit) die 
Werte V = f(X2) und W = f(X3) gleich, obwohl in Wirklichkeit (d.h. bei 
exakter Rechnung) V < W. Der Rechner beantwortet daher die in der 
Programmzeile 6®® gestellte Frage, ob V <W, falsch. Das hat zur Konse- 
quenz, daß das nächste Intervall [X1, X4] falsch gebildet wird, der exakte 
Wert für das Minimum wird nicht mehr eingeschlossen. 


Das Minimum einer Funktion y = f(x) kann nur so genau bestimmt 
werden, wie die Funktionswerte sich im Rahmen der Rechengenauig- 
keit voneinander unterscheiden. Für die x-Werte bedeutet das i.a. 
ungefähr halbe Rechnergenauigkeit (also auf 5 Stellen). Dagegen kann 
der zugehörige y-Wert praktisch mit Rechnergenauigkeit bestimmt 
werden. 


Diese Aussage hat weder mit ungeschickter Programmierung zu tun noch mit 
irgendwelchen Macken eines speziellen Rechners, sondern allein mit den un- 
günstigen Eigenschaften des Problems der Minimumbestimmung. Der in der 
numerischen Mathematik hierfür gebräuchliche Fachausdruck ist: Das Pro- 
blem ist schlecht konditioniert. 

Es hat also keinen Sinn, sondern führt zu falschen Ergebnissen, für die 
Eingabe von D im obigen Programm eine mehr als 5-stellige Genauigkeit 
vorzugeben. 
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3.6 Felder. Indizierte Variablen 


Beispiel: Lineare Gleichungssysteme 
Ein in vielen Anwendungsbereichen auftretendes Problem ist die Bestimmung 
der Lösung eines linearen Gleichungssystems (n Gleichungen mit n Unbekann- 
ten) 

C11%Xı + C12X2 + -.. + CınXn = bı 

C21Xı + C22X2 +... + CanXn = b2 


Gegeben sind dabei die Koeffizienten ca1, ..., Cını 021, +, C2nı +++ En1r +, Cnn 
und die Komponenten der rechten Seite b, , ..., bn. Gesucht sind die Unbe- 
kannten X, ..., Xn- 

Beispiel: Elektrische Netzwerke 

In einem elektrischen Netzwerk sind die Ohm‘schen Widerstände und die 
Spannungsquellen gegeben. Gesucht sind die Ströme in den einzelnen Kompo- 
nenten des Netzwerks. Hier sind z. B. die Widerstände R,, ..., Re und die 
Spannungen U}, Us gegeben und die Stromstärken Iı, ..., Is gesucht. Nach 


den Kirchhoff’schen Regeln ergibt sich das folgende lineare Gleichungssystem 
für die unbekannten Stromstärken: 


Ih - Iz + la =6 

I, - Iz + Is =d 

I, == I; = Is =d® 
Rılı —Rala + Rele = U} 
Ralz + Rala + Rsls =Us 
-Rala + Rsls + Rele = Us 





Die gebräuchlichste Methode zur Lösung eines linearen Gleichungssy- 
stems ist das Gauß-Verfahren, das sich auch in BASIC programmieren 
läßt. Mit den bisher vorgestellten Programmiermöglichkeiten stößt man 
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dabei allerdings auf Schwierigkeiten: Bevor der Rechner das Problem bearbei- 
ten kann, müssen die Daten eingegeben werden, das sind die n? Koeffizienten 
und die n Komponenten der rechten Seiten. Für jede dieser Zahlen wird eine 
eigene Variable mit einem eigenen Namen benötigt. Mit den bisher betrach- 
teten Programmiermöglichkeiten würde man außerdem bei der Eingabe für 
jede Variable eine eigene INPUT-Anweisung benötigen, und jede Änderung 
der Dimension n des Problems würde eine Änderung des Programms erfordern. 
Um Schwierigkeiten dieser Art zu beheben, bietet BASIC die Möglichkeit, 
indizierte Variablen zu verwenden, für das lineare Gleichungssystem etwa die 
Variablen 


XU),.., X(N), BU), .., B(N), C(1,1),.., CN, N). 


Anders als die bisher benutzten Variablen können indizierte Variablen nicht 
einfach in einem Programm aufgerufen, sondern ihre Verwendung muß vorher 
vereinbart werden. Dies geschieht durch die DIM-Anweisung mit der allge- 
meinen Form 


| DIM Feldvereinbarung, Feldvereinbarung, ... 
Eine Feldvereinbarung hat die Gestalt 

| Name (arithmetischer Ausdruck) 

oder 


| Name (arithmetischer Ausdruck, arithmetischer Ausdruck) 

Für die Namen gelten dieselben Regeln wie für die Namen einfacher Variablen. 
Die Sonderrolle der Standardvariablen A(1),..., A (26) ist zu beachten. Bei den 
Rechnern PC-1246/47 und PC-1251 sollten Sie daher den Buchstaben A bei 
Feldvereinbarungen sicherheitshalber nicht verwenden. 

Der Rechner bestimmt die ganzzahligen Anteile der arithmetischen Ausdrücke 
in den Feldvereinbarungen, die zwischen ® und 225 liegen müssen. Durch sie 
sind die Fe/dgrenzen festgelegt: 


DIM X (N) 
bewirkt, daß von nun an die N + 1 indizierten Variablen X (B), ..., X (N) im 


Programm benutzt werden dürfen; der Rechner hat für sie Speicherplatz 
reserviert. 


Entsprechend schafft 


DIM Y (N, M) 

die Möglichkeit, die (N + 1) * (M + 1) indizierten Variablen 
Y (8, ©) Y(8, 1) .. ..Y(6,M) 
Y(1,0) Y(1,1) Y(,M) 


YiN.dD  Y{NI)  ... Y({N,M) 


zu verwenden. Die Gesamtheit der indizierten Variablen mit demselben 
Namen heißt ein Feld. 

Unmittelbar nach ihrer Vereinbarung durch die DIM-Anweisung setzt der 
Rechner alle indizierten Variablen zu Null. 

Während die bisher betrachteten Programme die Speicherkapazität der 
SHARP-Rechner nicht ausschöpfen, kann diese durch DIM-Anweisungen 
leicht überschritten werden. Nach der Anweisung 


DIM C (99,99) 


müßte der Rechner 100 + 100 = 10000 Speicherplätze einrichten, wodurch 
seine Kapazität gesprengt würde, was zu einer Fehlermeldung führt. 


Während des Programmlaufs darf ein Feld nur einmal durch eine DIM-Anwei- 
sung vereinbart werden. 


Nach der Vereinbarung eines Feldes können seine indizierten Variablen wie 
andere Variablen im Programm verwendet werden. Ihr Aufruf hat die allge- 
meine Form 


I Name (arithmetischer Ausdruck) 
oder 
I Name (arithmetischer Ausdruck, arithmetischer Ausdruck). 


Die ganzzahligen Anteile der Werte der arithmetischen Ausdrücke werden 
bestimmt, sie müssen innerhalb der vereinbarten Feldgrenzen liegen. Der 
Rechner stellt auf diese Weise fest, um welche indizierte Variable es sich 
handelt. 


Beispiel: Daten des linearen Gleichungssystems 
19: INPUT “DIMENSION=";N 
20:DIMC(N,N),X(N),B(N) 
30:WAIT 30 
48: FORI=1TON 
50:FORJ=1TON 
68: PRINT CC“; 1,J;"'=?" 
78:INPUTC(I,J) 
80:NEXTJ 
98:PRINT "B“;1;"=?" 

180: INPUT B(D) 

118: NEXTI 

120:WAIT 


Anmerkungen: 


a) In Zeile 28 sind mehr indizierte Variablen vereinbart als tatsächlich 
benötigt, nämlich alle, in denen ein Index ® auftritt. Wir leisten uns 
diesen Luxus, um die Indizes nicht gegenüber dem Ausgangsproblem 
verändern zu müssen. 
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b) In den Zeilen 60 und 98 wurde die PRINT-Anweisung benutzt, um den 
Komfort der Eingabe zu erhöhen. Jeweils direkt vor der INPUT-Anweisung 
wird im Anzeigefeld eine halbe Sekunde lang angezeigt, die Eingabe 
welcher indizierten Variablen der Rechner erwartet. Wer die Dauer dieser 
Anzeige erhöhen will, muß Zeile 30 entsprechend verändern. 


Testproblem: Man überprüfe dieses Teilprogramm an folgendem Beispiel: 
3x1 4x, +X3 = 14 
xı +2x2 7x3 =6 
2x1 + X2 txX3 = 3 
Nach Ende des Programmlaufs läßt sich die richtige Eingabe überprüfen, 
indem man 


€ (1,1) [ENTER] , c(1,2) [ENTER] ... usw. 


eintippt und sich so die aktuellen Werte der indizierten Variablen ausgeben 
läßt. 
Beispiel: E/iminationsverfahren 


Die Idee des Gauß’schen Eliminationsverfahrens besteht darin, das ursprüng- 
liche Gleichungssystem umzuformen in ein gleichwertiges Gleichungssystem 
der Gestalt 


C11Xı + C12%2 +... + C1,n-1Xn-ı + CınXn = Bı 
C22C2 +... + C2,n-1Xn-1 + C2nXn = b2 





Cn-1, 


n-1%Xn-1 + Cn-1,n*n = bn-1 

CnanXn = b„ 
Ein solches Gleichungssystem in Dreiecksform läßt sich leicht lösen, indem 
man die einzelnen Gleichungen von unten nach oben nacheinander löst. 
Um aus dem ursprünglichen linearen Gleichungssystem ein gleichwertiges 
Gleichungssystem in Dreiecksform herzustellen, sind die Koeffizienten 
C (I, J) und die Komponenten der rechten Seite B (I) umzuformen. Es werden 
geeignete Vielfache einer Gleichung von den anderen Gleichungen subtrahiert 
mit dem Ziel, alle C (I, J) mit I > J zu eliminieren, d.h. zu Null zu machen. 


Testproblem: Für das obige Testproblem wird nacheinander 


— das (1/3)-fache der 1. Gleichung von der 2. Gleichung subtrahiert, 
— das (2/3)-fache der 1. Gleichung von der 3. Gleichung subtrahiert. 


Man erhält als neues Gleichungssystem: 


3x1 4x2 + X%3 = 14 
10 4 - 32 
augen rg 
11 1 19 
zetget 7 
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Sodann wird das (11/1®)-fache der 2. Gleichung von der 3. Gleichung subtra- 
hiert mit dem Ergebnis 


3x4 = AX2 + X = 14 
19 4 -32 
aaa 3 

0.2 
52 5 


Flußdiagramm zur Umformung auf Dreiecksgestalt: 













Eingabe: 
N, C(L J), BD 


A=CIK,D/C(LN 


C(K,J))=CIK,J)-A*C(LJ) 


O 
B(K)=B(K)-A«B(N 





Im zugehörigen Programm wird zwischen den Zeilen 160 und 32@ noch Platz 
gelassen für eine Verbesserung des Verfahrens, die später begründet wird: 


160: FORI=1TON- 1 360:CIK,J)=CIK,J)-A*C(L)J 
320:FORK=I+1TON 370: NEXT J 
338:A=C(K,D/C(LD 380:B(K)=B(K)-A*BÜ 
348:C(K,I) =® 398:NEXTK 
350:FORJ=I+1TON 480: NEXTI 


Man überprüfe das bisher erstellte Programm an dem oben durchgerechneten 
Testproblem. 


Ist die Dreiecksgestalt hergestellt, so läßt sich die Lösung leicht durch Rück- 
wärtseinsetzen bestimmen. 
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Fiußdiagramm zum Rückwärtseinsetzen: 


X (N) =B(N)/C(N, N) 








xD=-BM 


xD=-xXxMD-C(LJ)*X() 


xD=X(D/CLD 


B 
O 






Man gehe das Flußdiagramm anhand des Testproblems durch. Es ergeben sich 
hier die Werte 


%3 = 3, %=-2, xı=1. 


Das zugehörige Programm lautet: 


420:x(N)=B(N)/C(N, N) 480:X(D =X(D/C(LD 
430:FORI=N-1TO1STEP-1 490: NEXTI 
440:X(D)=B(D 500:FORI=1TON 

450: FORJ=I+1TON 510: PRINT "X; 1; "="; XD 
460:X(D=X(M-C{LJ*X (U) 520: NEXTI 

470: NEXT J 530: END 


Man führe das gesamte bisher erstellte Programm mit dem Testproblem durch. 
Es ergeben sich die folgenden, durch Rundungsfehler leicht verfälschten 
Werte: 


X1= 0.999999998 
x2=-2.000000001 
x3= 3.000000002 


Testproblem 2: 9x} + 9x2 +x3 - 3x4 = 4 
3x1 +6xX2 tx3 +2x4= D 
xı +5x, +X37 x =6 
X17 X2"X3 + xa= 6 
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Man überzeugt sich durch Einsetzen in die Gleichungen, daß 
xı=2, x%Xa=1l %-=723, x >1 
die Lösung dieses Problems ist. 


Führt man das obige Programm für dieses Problem durch, so liefert der 
Rechner die Werte 


xX1=1.634332746 X2=-2.686654907 X3=-5.291005291 X4 = 1, 


für x}, X2 und x3 also völlig falsche Ergebnisse. 


Führt man das Gauß-Verfahren für das Testproblem 2 manuell durch, so 
ergeben sich bei der Umformung auf Dreiecksgestalt als Zwischenergebnisse 
die linearen Gleichungssysteme 


9x, +9x, + xX3 7 3x4 = 4 

2 4 

3x2 + zX3 + 3x4 = 3 

8 2 58 

4x2 + 9x3 zxX4 F} 

19 4 50 

2x2 g*s + zxXa = rY 
und 

9x1 +9x2 + x37 3x4 = 4 

ae 

x%2 373 xXa 3 

_14, __14 

se 3 

2, ,10,_ 1 

37,90%, 3 


Beim Übergang vom ersten zum zweiten Zwischenergebnis ist das (4/3)-fache 
der 2. Gleichung von der 3. Gleichung zu subtrahieren. Hierdurch wird 

C33 = ®. Im nächsten Schritt des Gauß-Verfahrens müßte durch ca33 dividiert 
werden (in der Programmzeile 330), was für c33 = ® aber gar nicht möglich ist. 
Tatsächlich funktioniert das Verfahren in der bisher beschriebenen Form nur 
dann, wenn alle Koeffizienten c;;, durch die in Zeile 330 und Zeile 420 
dividiert wird, von Null verschieden sind. Im Testproblem 2 ist das offenbar 
nicht der Fall. Man kann sich hier dadurch weiterhelfen, daß man die (neue) 
3. Gleichung mit der 4. Gleichung vertauscht, wodurch c33 wieder von Null 
verschieden wird. 

Bei der Durchführung des Testproblems 2 hätte der Rechner eigentlich 
mit einer Fehlermeldung reagieren müssen, da ihm eine Division durch ® 
zugemutet wurde. Das hat er aber nicht, sondern statt dessen ein falsches 
Ergebnis geliefert. Der Grund liegt darin, daß c33 = ® durch Subtraktion 
von zwei gleichgroßen Zahlen zustande kommt, die im Rechner aber nur 
fast gleich groß sind (s. Abschnitt 1.6), und der Rechner die Rechnung 


Cc(3,3)=C(3,3) -A=*C(23) = 
= 0.8888888889-1.333333333 » 0.6666666667 = 1.89E - 10 


durchführt. Demnach ist das Subtraktionsergebnis nicht exakt ®. Der Rechner 
kann daher das einprogrammierte Verfahren weiter durchführen, einschließ- 
lich der an sich verbotenen Division, die mit den im Rechner gespeicherten 
Werten durchführbar ist. Nur haben die erzielten Ergebnisse mit den exakten 
Werten nichts mehr zu tun. 


Es genügt daher nicht, einen Zeilentausch nur dann durchzuführen, wenn 
der Koeffizient, durch den man dividieren will, gleich Null ist. Um sicher- 
zugehen, bringt man vielmehr denjenigen Koeffizienten durch Zeilentausch 
an die Stelle c;;, der von Null am weitesten entfernt ist. Dieser Koeffizient 
wird auch Pivotelement genannt. 


Jetzt kann noch der Fall eintreten, daß selbst das Pivotelement gleich Null 

ist oder doch so klein, daß man nicht sicher sein kann, ob die Abweichung 
von Null nicht nur durch Rundungsfehler zustandegekommen ist. Ist das 
Pivotelement tatsächlich gleich Null, so besitzt das linare Gleichungssystem 
keine eindeutige Lösung, wie ein Satz aus der Linearen Algebra (das ist die 
Theorie der linearen Gleichungssysteme) besagt. Wegen möglicher Rundungs- 
fehler soll sicherheitshalber angenommen werden, daß dieser Fall bereits dann 
vorliegt, wenn das Pivotelement betragsmäßig unterhalb einer kleinen, vorge- 
gebenen Zahl (z.B. 1E - 8) liegt. 


Hieraus ergibt sich die folgende, bereits angekündigte Ergänzung des bisher 
erstellten Programms zum Gauß-Verfahren: 


158: INPUT “PIVOTELEMENT >=" ;P 
169: REM PIVOTSUCHE 

176:1=1 

188:FORK=I+1TON 

198:IF ABSC(K, D <=ABSC(L, I) THEN 218 
200:L=K 

210:NEXTK 

211:REM ENDE PIVOTSUCHE 
220:IF ABSC(L, ID) <PTHEN 5498 
230:IF L=ITHEN 320 

239: REM ZEILENTAUSCH 
248:FORJ=1TON 

250:T=C(lI,J) 

260:C(L,J)=C(L, J) 

270:C(L,J)=T 

280:NEXT J 

290:T=B(N 

308:B(l)=B(L) 

318:B(L)=T 

311:REM ENDE ZEILENTAUSCH 
410:IF ABSC(N, N) <PTHEN 549 
530: GOTO 550 

540: PRINT "KEINE LOESUNG“ 
550:END 75 


Man überprüfe das gesamte Programm am Testproblem 2. Es ergibt sich 
die exakte Lösung. 


Testproblem 3: 3x} — 2x2 + 4x3 5x4 = 2 
2x1 + X2 3x3 +t2x, = 2 
2x1 = x2 7 2X3 2x4 =-3 

x%ı + 3x2 +4x3 +5x4 = 13 


Es läßt sich zeigen, daß dieses Problem keine eindeutige Lösung besitzt. Der 
Rechner müßte daher 


KEINE LOESUNG 

ausgeben. Er tut dies auch, sofern man 
Pivotelement>= 1E-8 

eingibt. Gibt man dagegen 
Pivotelement>= 1E- 10 

ein, so gibt der Rechner ein Phantasieergebnis aus. 


Beispiel: Elektrisches Netzwerk 


Für das zu Anfang dieses Abschnitts angegebene elektrische Netzwerk seien 
die folgenden Widerstände (in Ohm) und Spannungen (in Volt) gegeben: 


Rı =7, R2=65, R3=3, Ra = 2, Rs = 18, Re = 8.1, U,=6, U; = 12 


Damit erhält man als Koeffizienten und rechte Seiten des zugehörigen 
linearen Gleichungssystems die Zahlen 


10 -1 10980 0 
oe ı1ı -1 ee ı © (") 
1-1 Ö 06-1 (") 
7 © ee -2 8 91 6 
0 0 3 2 108 08 12 
0-05 06 oe 10 01 12 


Nach Eingabe dieser Zahlen und 
PIVOTELEMENT>=1E-8 
erhält man als Ergebnis die Stromstärken (in Ampere) 


I, = 0.7390639343 Iz = - 0.7476292417 Is = 0.4801223633 
Ia = -0.3389415708 Is= 1.147751605 Is = 1.486693177 


Beispiel: Horner Schema 
Funktionswert und Ableitung eines Polynoms 
px) sag tax tax? +... ra,x" 
werden am schnellsten mit dem Horner Schema berechnet: 


bm = Am, b;-ı = bx+ta-ı füri= m,m -1J, ..., 1 
Cm = bm, G-ı=cx+tb_, füri=mm-1,..,2 
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Es ist dann 
p(x) = be, p x) =cı. 


Aufgabe 24: Man schreibe, beginnend mit der Programmzeile 20®, ein Unter- 
programm zur Berechnung von Y=p(X) und Z=p’(X) für das Polynom 
plx) =agtaıxt.. tamx”. 

Man ergänze das Programm aus Aufgabe 23 (Newtonverfahren) durch dieses 
Unterprogramm sowie die Eingabe der Koeffizienten ag, ..., am. Man teste das 
Programm für verschiedene Startwerte zwischen -1 und +3 mit dem Polynom 


p(x) = 2-4x- 1x? + 3x°. 


3.7 Textverarbeitung 


In den bisherigen Abschnitten wurden die SHARP-Computer als Rechner 
behandelt, in die man Zahlen eingeben kann, die mit diesen Zahlen Rech- 
nungen durchführen und anschließend die Ergebnisse ihrer Rechnungen 
wieder ausgeben. 


Parallel zu diesem Bereich der numerischen Rechnungen enthält die Pro- 
grammiersprache BASIC einen Bereich zum Zwecke der Textverarbeitung, 
der weitgehend analog aufgebaut ist. Die Analogien sind in der folgenden 
Tabelle zusammengestellt: 


numerische Rechnungen Textverarbeitung | 


















Zahlen Textkonstanten 
Verknüpfungen +, —, *,/, A Verknüpfung + 
Funktionen Textfunktionen 
Variablen Textvariablen 
Felder Textfelder 
indizierte Variablen indizierte Textvariablen 
arithmetische Ausdrücke Textausdrücke 
Wertzuweisung Textzuweisung 
Ein- und Ausgabeanweisungen Ein- und Ausgabeanweisungen 
INPUT, PRINT INPUT, PRINT 

Bi: =,<{,>,<=,>=, Textvergleiche =, <,>,< >in 
< > in IF-THEN-Anweisungen IF-THEN-Anweisungen 





So wie die Zahlen die Grundelemente aller Rechnungen sind, sind die Text- 
konstanten die Grundelemente für die Arbeit mit Texten. Eine Textkonstante 


hat die Form 


| "Text", 
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wobei der Text aus einer beliebigen Folge von Zeichen mit Ausnahme der 
Anführungsstriche bestehen kann. Die Anführungsstriche schließen den Text 
ein, sie kennzeichnen die eingeschlossene Zeichenfolge für den Rechner als 
Text (im Gegensatz etwa zu einer Zahl oder einem BASIC-Befehl). Ein Text 
kann auch Leerzeichen enthalten. Der kürzestmögliche Text enthält 
überhaupt kein Zeichen: 


“* heißt der /eere Text. 


Zwei Textkonstanten lassen sich miteinander verknüpfen, allerdings nur auf 
eine einzige Weise, nämlich durch das Additionszeichen +. Diese Verknüpfung 
bewirkt, daß die beiden Texte hintereinandergeschrieben werden. 


Beispiel: Betriebsart RUN 


Eingabe Ausgabe 





“PC-1245° +"-COMPUTER" 


ENTER PC-1245-COMPUTER 


Bei der Ausgabe von Texten läßt der Rechner die Anfürhungsstriche weg. 

Wie Zahlen lassen sich auch Texte speichern, die zugehörigen Speicherplätze 
heißen Textvariablen; im Gegensatz dazu werden die Variablen zur Speiche- 
rung von Zahlen auch numerische Variablen genannt. Die Namen von Text- 
variablen unterscheiden sich von denen der numerischen Variablen dadurch, 
daß zusätzlich das Zeichen $ an ihrem Ende steht, also z.B. C$. Ansonsten 
gelten dieselben Regeln wie für die Namen von numerischen Variablen. Auf 
einer Textvariablen läßt sich ein Text mitmaximal 7 bzw. 16 Zeichen speichern 
(siehe S. 15). Eine Textzuweisung 


| Name $=""Text” 





weist einer Textvariablen einen Text zu. 
Beispiel: Betriebsart RUN im PC-1245 








Eingabe 



















A$="HANS“ HANS 







B $="WURST“ fo WURST 
C$=A$+B$ » HANSWURST 
c$ AT HANSWUR 
D$=SHARP ERROR 9 





Den auf einer Textvariablen gespeicherten Text bringt man, analog zu dem 
Vorgehen bei numerischen Variablen, durch die Eingabe von 


| Names 
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in Erfahrung. Dem Beispiel kann man außerdem entnehmen, daß auf der 
rechten Seite einer Textzuweisung nicht nur eine Textkonstante, sondern 
auch eine Textvariable oder mehrere durch + verknüpfte Textkonstanten und 
-variablen stehen dürfen. 


Eine Textzuweisung hat also die allgemeine Form 


] Name$= Textausdruck 


wobei ein Textausdruck (vorläufig) aus einer Textkonstanten, einer Text- 
variablen oder mehreren Textkonstanten und -variablen bestehen kann, die 
durch das Zeichen + verknüpft sind. Im Zusammenhang mit Textfunktionen 
werden Textausdrücke noch eine etwas kompliziertere Gestalt bekommen. 
Wie bei numerischen Variablen gibt es auch Textfe/der und damit indizierte 
Textvariablen, die vor ihrer Benutzung durch die DIM-Anweisung vereinbart 
werden müssen. Eine Fe/dvereinbarung für ein Textfeld kann dieselbe Form 
wie die für ein (numerisches) Feld haben, also z.B. 


DIM C$(9), B$(9.7). ..., 


wobei auch hier das Zeichen $ am Ende des Namens stehen muß. In diesem 
Fall werden entsprechende indizierte Textvariablen eingerichtet, die alle Texte 
mit maximal 16 Zeichen speichern können. Will man diese Speicherkapazität 
ändern, so muß man dies in der Feldvereinbarung angeben: 


I DIM Name$ (arithm. Ausdruck) * arithm. Ausdruck 


Der ganzzahlige Anteil des in den Klammern stehenden arithmetischen Aus- 
drucks legt, wie stets bei Feldern, die Feldgrenzen und damit die Zahl der 
eingerichteten indizierten Textvariablen fest. Der ganzzahlige Anteil des 
arithmetischen Ausdrucks am Ende nach dem Zeichen *, der zwischen 1 und 
8@ liegen muß, legt fest, wieviele Zeichen maximal von einer indizierten 
Textvariablen gespeichert werden. Dasselbe gilt entsprechend für die Ver- 
einbarung doppelt indizierter Textfelder. 

Will man also Texte speichern, die mehr als 7 bzw. 16 Zeichen enthalten, so 
muß man dazu indizierte Textvariablen verwenden oder aber die Texte in 
kleinere Teile zerlegen und auf verschiedenen Variablen speichern. 


Beispiel: Das Programm 


18:DIMC$ (4) *5 
20:FORI=0TO4 
30: INPUT C$ (I) 

40: NEXTI 
50:FORI=0TO4 
60: PRINT C$ (D;I+1 
70:NEXTI 

80: END 
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wird wie üblich in der Betriebsart PRO in den Rechner eingegeben und in der 
Betriebsart RUN mit RUN gestartet. Auf die INPUT-Anweisung 
in Zeile 3® reagiert der Rechner wie üblich mit zinem Fragezeichen im Anzei- 
gefeld. Er erwartet jetzt die Eingabe einer Textkonstanten. Hierbei ist zu 
beachten: 


| Bei der Eingabe von Textkonstanten über eine INPUT-Anweisung sind 
die Anführungsstriche wegzulassen. 


Nach Eingabe von SABINE [ENTER] CLAUS [ENTER] ULRIKE [ENTER 
[ENTER] 


TILL RIBOA [ENTER] speichert der Rechner eine Namensliste, 
die aus den jeweils 5 ersten Buchstaben dieser Namen besteht. Durch die 
PRINT-Anweisung in Zeile 60 werden diese Namen zusammen mit ihrer Stel- 
lung in der Liste wieder ausgegeben: 


SABIN1 CLAUS2 ULRIK3 TILL4 RIBOAS. 


Es macht in diesem Beispiel natürlich nicht viel Sinn, in Zeile 10 die maximale 
Länge der gespeicherten Texte auf 5 festzulegen. Man könnte meinen, es sei 
generell nicht sinnvoll, die maximale Textlänge von 7 Zeichen auf eine 
kleinere Zahl zu verkürzen. Diese Meinung wäre falsch, weil für die maximale 
Textlänge entsprechender Speicherplatz im Hauptspeicher reserviert wird: 
Das obige Beispielprogramm benötigt für die Vereinbarung des Feldes c$ 
32 Bytes aus dem Hauptspeicher. Mit der verkürzten Programmzeile 


10:DIMC$(4) 


würden hierfür 87 Bytes benötigt. 

Mit der Vereinbarung eines Textfeldes durch die DIM-Anweisung werden alle 
neu eingerichteten indizierten Textvariablen mit dem leeren Wort belegt. Das 
leere Wort entspricht also der ® bei den Zahlen. Entsprechend werden auch 
bei der Eingabe von 


CLEAR |ENTER 


alle Standard-Textvariablen mit dem leeren Wort belegt. Außerdem werden, 
ebenso wie die numerischen Variablen, alle Textvariablen aus dem Haupt- 
speicher gelöscht. 

Die Form der Ein- und Ausgabeanweisungen INPUT und PRINT ist für den 
Bereich der Textverarbeitung völlig identisch mit der Form für den Bereich 
numerischer Rechnungen. Auch die Funktionsweise ist völlig analog mit einer 
Ausnahme: Über die INPUT-Anweisung kann einer Textvariablen nur eine 
Textkonstante ohne die einschließenden Anführungsstriche zugewiesen 
werden, aber keine sonstigen Textausdrücke. 


Beispiel: Programmiert man den Rechner mit dem Programm 


10: INPUT A$ 
20: INPUT B$ 
30:PRINT A$ + B$ 
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so ergibt sich im Programmlauf z.B. 





Eingabe 





KUNOA$ 


Der Rechner interpretiert also die Antwort auf das zweite Fragezeichen nicht, 
wie er es bei numerischen Variablen entsprechend tut, als Inhalt des Text- 
speichers A$, sondern als die Textkonstante '"A$”. 


Was immer man bei einer INPUT-Anweisung für eine Textvariable auch einge- 
ben mag, der Rechner interpretiert es als Textkonstante. Will man das leere 
Wort eingeben, so kann man dies durch Eingabe eines einzigen Anführungs- 
zeichens ”’ erreichen. Läßt man das obige Programm noch einmal laufen mit 
A$ = ""Kuno” und B$ = "A$” im Speicher, so ergibt sich z. B. 


Eingabe Ausgabe 








Das Drücken der |ENTER]|-Taste allein bewirkt, wie bei numerischen Variab- 
len auch, daß die INPUT-Anweisung übergangen wird, die Textvariable also 
ihren Inhalt nicht ändert. 


Bei bedingten Sprunganweisungen 

IF Vergleich THEN Zeilennummer 
wurde bisher nur zugelassen, daß im Vergleich zwei Zahlen miteinander ver- 
glichen werden. BASIC bietet hier außerdem die Möglichkeit, zwei Textaus- 
drücke miteinander zu vergleichen. Die Vergleichsoperatoren =,<,>,< > 


sind bereits vom Vergleich arithmetischer Ausdrücke bekannt, haben aber 
beim Vergleich von Textausdrücken eine andere Bedeutung: 


Die durch a} und az dargestellten Texte sind gleich. 


Der durch a, dargestellte Text steht lexikalisch vor dem 
durch a, dargestellten Text. 


a2 <a, 


Die durch a, und a» dargestellten Texte sind verschieden. 








Die /exikalische Ordnung, von der in der Tabelle die Rede ist, ist die Ordnung, 
nach der auch die Reihenfolge der Stichworte in einem Lexikon festgelegt ist. 
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Danach ist also 
“HANS” <“HAUS“ und “TAUBE’ >‘TAUB“. 


Die hier verwendete lexikalische Ordnung unterscheidet sich allerdings etwas 
von der üblicherweise in Lexika verwendeten. Sie stimmt damit überein, 
solange man Texte miteinander vergleicht, die nur aus (großen) Buchstaben 
bestehen, weicht aber bei der Verwendung von Zahlen oder sonstiger Zeichen 
(Bindestrich) davon ab. 

In den Anhängen der Bedienungsanleitungen finden sie in der ASCII-Tabelle 
eine Liste aller in BASIC möglichen Zeichen. Die dort angegebene Reihenfolge 
liegt auch der lexikalischen Ordnung der SHARP-Rechner zugrunde. 

In einem Programm z.B. zur Herstellung der alphabetischen Reihenfolge 
einer Namensliste sollte man für die Texte der Einfachheit halber nur Buch- 
staben verwenden. 


Beispiel: Alphabetische Namensliste 
Mit dem folgenden Programm speichert der Rechner eine Liste eingegebener 
Namen in alphabetischer Reihenfolge auf einem Textfeld ab. 


1:REM ALPHABETISCHE LISTE 110:NEXTK 
10: INPUT “MAX ANZAHL="; N 120:K=0 
20: INPUT “MAX LAENGE=";M 130:C$(K +1)=C$(0) 
30:DIMC$ (N) »M 148:C$ (0) =" " 
40: INPUT "NAME=";C$ (1) 150: NEXTI 
50: FORI=1TON-1 160:1=N 
60: INPUT "NAME="; C$(0) 170: PRINT I;"NAMEN“ 
78: IF IFC$ (8) =""THEN 170 186:FORK=1TOI 
80: FORK=ITO1STEP-1 198: PRINTK;""+C$(K) 
9B:IFC$(K)<C$ (0) THEN 130 200: NEXTK 
108: C$(K +1) = C$(K) 210:END 


Anmerkungen zum Programm: 


1. Die eingegebenen Namen sollen auf dem Textfeld C$ abgespeichert werden, 
das zunächst in geeigneter Größe vereinbart wird. 

2. Jeder neu eingegebene Name außer dem ersten wird zunächst auf C$ (0) 
gespeichert. Ist C$(®) der leere Text (Zeile 7®) oder ist die maximale 
Anzahl N einzugebender Namen erreicht, so wird die Eingabe beendet. 

3. In den Zeilen 80 bis 130 wird C$ (®) in die bereits in alphabetischer 
Reihenfolge gespeicherten Namen in C$ (1) bis C$ (I) einsortiert, wie es 
der alphabetischen Ordnung entspricht. Abschließend wird C$ (0)=""" 
gesetzt, so daß es genügt, bei der nächsten Eingabe die [ENTER| -Taste 
zu drücken, wenn die Namensliste erschöpft ist. 

4. Zuletzt werden die Namen in alphabetischer Reihenfolge zusammen mit 
ihrem Platz in der Liste wieder ausgegeben. 
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Programmlauf: 


A. Eingabe der maximalen Anzahl von Namen, die die Liste umfassen soll. Es 
ist nicht nötig, die Zahl der Namen vorher zu zählen, man darf sie auch 
überschätzen. 


B. Eingabe der maximalen Länge der Namen. Es dürfen auch längere Namen 
eingegeben werden, die dann aber nicht in voller Länge gespeichert werden. 


C. Eingabe der Namen in Großbuchstaben und ohne Anführungsstriche. Ab- 


schließend die |ENTER |-Taste drücken. Wenn alle Namen eingegeben sind, 
ENTER 


nur noch die -Taste drücken. 

D. Der Rechner gibt zunächst aus, wieviele Namen er erfaßt hat. Durch jewei- 
liges Drücken der [ENTER]-Taste wird dann ein Name nach dem anderen 
in alphabetischer Reihenfolge zusammen mit seinem Platz in der Liste aus- 
gegeben. 

Beispiel zum Programmlauf: Nach jeder Zeile -Taste drücken. 

A. Maximale Anzahl = 8 

B. Maximale Laenge = 7 


C. Name = SABINE D. 5 Namen 
Name = CLAUS 1 CLAUS 
Name = ULRIKE 2 RIBQA 
Name = TILL 3 SABINE 
Name = RIBQA ATILL 
Name = 5 ULRIKE 


BASIC kennt drei Textfunktionen, die einem Text einen anderen Text zuord- 
nen, der ein Teil des ursprünglichen Textes ist: LEFT$, RIGHT$ und MID$. 


l LEFT$ (Textausdruck, arithmetischer Ausdruck) 


bewirkt, daß der Rechner den ganzzahligen Anteil N des arithmetischen Aus- 
drucks berechnet und dann die ersten N Zeichen des Textausdrucks als Ergeb- 
nis von LEFT$ bildet. N muß dabei zwischen ® und 88 liegen (8® ist die 
maximale Länge einer Textkonstanten). Ist N = @, so ist das leere Wort das 
Ergebnis. Ist N größer oder gleich der Länge des Textausdrucks, so ist der 
gesamte Text selbst das Ergebnis. 


| RIGHT$ (Textausdruck, arithmetischer Ausdruck) 
wirkt entsprechend, nur daß die /etzten N Zeichen das Ergebnis bilden. 
| MID$ (Textausdruck, arithm. Ausdruck, arithm. Ausdruck) 


entnimmt dem Textausdruck eine Zeichenfolge aus der Mitte. Der ganzzahlige 
Anteil des ersten arithmetischen Ausdrucks kennzeichnet die Position des 
ersten Zeichens, der ganzzahlige Anteil des zweiten arithmetischen Ausdrucks 
kennzeichnet die Länge der zu entnehmenden Zeichenfolge. 
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Beispiel: Betriebsart RUN 
Eingabe 


A$= WERNER” WERNER 
LEFT$(A$, 3) WER 


RIGHT$ (AS, 8) WERNER 
B$ = MID$ (A$, 2, 3) + "IE" ERNIE 
LEFT$(A$, 3) +"? "+B$ WER? ERNIE 





In den letzten beiden Eingaben dieses Beispiels wurden bereits Textfunk- 
tionen in Textausdrücke eingebaut. Das ist analog zur Verwendung numeri- 
scher Funktionen in arithmetischen Ausdrücken möglich: Textfunktionen 
können überall in Textausdrücken anstelle von Textkonstanten oder Text- 
variablen eingesetzt werden. 


Will man ein Programm zur Umformung von Texten auf Texte verschiedener 
Länge anwenden, so ist es notwendig, die Länge dieser Texte bestimmen zu 
können. Das leistet die Funktion LEN. Durch 

LEN Textkonstante oder LEN Textvariable 

oder LEN (Textausdruck) 
wird die Länge des zugehörigen Textes bestimmt. LEN ist eine numerische 


Funktion, d.h. sie hat eine Zahl zum Ergebnis, und kann daher auch in arith- 
metischen Ausdrücken wie andere Funktionen verwendet werden. 


Beispiel: Betriebsart RUN 





Eingabe 


LEN”WERNER” 
A$="ERNIE” 


LENA$ 
B$= RIGHTS (AS, 3) 
LEN (B$ +" "+ A$) 





Aufgabe 25: Man schreibe ein Programm, das nach Eingabe eines Textes 
durch eine INPUT-Anweisung diesen in umgekehrter Reihenfolge wieder 
ausgibt. 


3.8 Erweiterte Programmzeilen und bedingte Anweisungen 


In den bisher betrachteten Beispielprogrammen steht in jeder Programmzeile 
genau eine Anweisung. Wie bereits in Abschnitt 2.2 erwähnt, besteht die 
Möglichkeit, mehrere Anweisungen in eine Zeile zu schreiben, wobei die 
einzelnen Anweisungen jeweils durch einen Doppelpunkt zu trennen sind: 


I Zeilennummer: Anweisung: Anweisung: Anweisung ... 
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Beispiel: Die Befehlsfolge 


118:FOR I=1TON 

128:FOR J=1TOM 140: NEXT J 
138:PRINT "A’;1;J; ="; A(1,J) 150:NEXT I 
läßt sich mit derselben Wirkung schreiben als 


118: FOR I=1TO N: FOR J=1TO M: PRINT "A’'; 1; J; "="; All, JJ):NEXTJ: 
NEXTI 

Der Vorteil dieser kompakten Programmierung liegt in dem geringeren 

Speicherbedarf, jede eingesparte Zeile bringt 3 Bytes. 

Ein Nachteil liegt in der geringeren Überschaubarkeit langer Programmzeilen 

und darin, daß nachträgliche Einfügungen von Anweisungen schwieriger sind. 

Zu beachten ist ferner, daß die Sprungziele von Sprunganweisungen stets Pro- 

grammzeilen sind. Anweisungen, die nicht am Anfang einer Programmzeile 

stehen, können daher mit einer GOTO-, GOSUB- oder IF-THEN-Anweisung 

nicht angesprungen werden. 


Dagegen kann der automatische Rücksprung bei einer RETURN- nach einer 
voraufgegangenen GOSUB-Anweisung auch in die Mitte oder das Ende einer 
Programmzeile erfolgen. Es wird stets auf die der GOSUB-Anweisung folgende 
Anweisung zurückgesprungen. 


Es sieht so aus, als würden Programmzeilen mit mehreren Anweisungen keine 
wesentlich neuen Programmiermöglichkeiten bieten. Diese ergeben sich in der 
Tat erst im Zusammenhang mit bedingten Anweisungen: 


Die BASIC-Grundversion kennt Vergleiche nur im Zusammenhang mit 
bedingten Sprunganweisungen (siehe Abschnitt 3.2) 


IF Vergleich THEN Zeilennummer 
Diese sind Spezialfälle von bedingten Anweisungen in der allgemeineren Form 
I IF Vergleich Befehl 


Der Vergleich hat dieselbe Form wie in der bedingten Sprunganweisung. Der 
Befehl kann 


THEN Zeilennummer 


lauten, muß es aber nicht. Stattdessen kann auch jeder beliebige andere BASIC- 
Befehl dort stehen. Handelt es sich dabei um eine Wertzuweisung, so muß diese 
die Form 


l LET Variable=arithmetischer Ausdruck 
und im Falle einer Textzuweisung die Form 
| LET Textvariable= Textausdruck 


haben; Wertzuweisungen wird also das BASIC-Wort LET vorangestellt. Alle 
übrigen BASIC-Befehle bleiben bei ihrer Verwendung innerhalb einer bedingten 
Anweisung unverändert. 


Die Wirkung einer bedingten Anweisung ist nun die folgende: Der Rechner prüft, 
ob die im Vergleich gemachte Aussage wahr oder falsch ist. Ist sie falsch, so geht 
er sofort zur nächsten Programmzeile, auch wenn in derselben Programmzeile 
noch weitere Befehle folgen. Ist sie wahr, so werden alle auf den Vergleich fol- 
genden Befehle wie üblich nacheinander ausgeführt. 


Während also bei der bedingten Sprunganweisung der Unterschied zwischen 
einem wahren und einem falschen Vergleich nur in einem einzigen Sprungbe- 
fehl besteht, kann er bei einer bedingten Anweisung unter Verwendung erwei- 
terter Programmzeilen auch aus mehreren Befehlen bestehen. Hierdurch wird 
es möglich, ansonsten sehr verschachtelte Programme übersichtlicher zu schrei- 
ben und insbesondere Sprunganweisungen einzusparen. 


Beispiel: Ein besonders abschreckendes Beispiel für ein verschachteltes 
Programm bietet die Lösung von Aufgabe 19 (Berechnung des effektiven 
Monatszinses mit dem Newtonverfahren). Die Programmzeilen 110 bis 220 
wären ohne das zugehörige Flußdiagramm in Abschnitt 3.3 kaum noch 
verständlich, da durch verschiedene GOTO-Anweisungen die lineare Struktur 
des Programms stark durchbrochen wird. Mit bedingten Anweisungen lassen 
sich die Programmzeilen 110 bis 220 ersetzen durch den durchsichtigeren Pro- 
grammteil 


118: IF Z=B8 THEN 150 

120: E=Y/Z:X=X-E 

130: IF ABS E<=DPRINT USING "##.##'; "'MONATSZINS’;X * 100; 
"%'';GOTO 169 

140: IFI<NLET I=1+1: GOTO 98 

150: PRINT “SCHLECHTER START” 

160: END 


Beispiel: Regula falsi 
Ein Verfahren zur Bestimmung einer Lösung der Gleichung 


t)=ß, 


das anders als das Newtonverfahren ohne die Berechnung der Ableitung f’(x) 
auskommt, ist die Regula falsi. Ausgehend von zwei verschiedenen Startwerten 
xo und x, wird die Iteration 


Xn "Xn-1 


Teer ra 


Xn+1” Xn 
durchgeführt. Ansonsten wird der Algorithmus wie das Newtonverfahren aus 
Abschnitt 2.6 durchgeführt (siehe Flußdiagramm). 


Aufgabe 26: Man schreibe ein BASIC-Programm zur Bestimmung von Lösun- 
gen der Gleichung f (x) = Ö mit der Regula falsi, in dem die Funktionsauswer- 
tung Y = f(X) in einem Unterprogramm vorgenommen wird. Man führe das 
Programm mit der Funktion f (x) = cosx - x in der Betriebsart RAD durch. 


86 


Flußdiagramm zur Regula falsi: 







Eingabe: 
X0, X1 (Startwerte) 

N (Begrenzung der Iterationsschritte) 
D (Genauigkeit) 













E = (X1- XB)-Y1/(Y1-YoO) 











Ausgabe: 
„Schlechte Startwerte’’ 





Ausgabe: 
x1 
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3.9 Marken, Programmnamen, Programmaufrufe 


Die Zeilen eines Programms tragen in Form ihrer Zeilennummern einen 
„Namen“, der es ermöglicht, sie als Sprungziele von GOTO-, GOSUB- oder 
IF-THEN-Anweisungen aufzurufen. Tippt man ein Programm direkt von 
einem Flußdiagramm in den Rechner ein, so erweist es sich bei einer solchen 
Sprunganweisung manchmal als mißlich, daß man die Zeilennummer der Zeile, 
zu der der Rechner springen soll, zum Zeitpunkt des Eintippens des zugehö- 
rigen Sprungbefehls noch gar nicht kennt. In einer solchen Situation ist es 
nützlich, wenn man den Namen, mit dem eine Zeile angesprochen werden 
kann, frei vereinbaren darf. Die SHARP-Rechner bieten diese Möglichkeit, 
indem sie erlauben, Marken zu setzen. Eine Marke ist eine Textkonstante zu 
Beginn einer Programmzeile: 


l Zeilennummer:: Textkonstante : Anweisung: Anweisung ... 


Eine Marke (engl. /abe/) darf nur ganz zu Beginn einer Programmzeile stehen 
und maximal 7 Zeichen enthalten. Eine Zeile, die mit einer Marke beginnt, 
kann mit diesem Namen als Sprungziel angesprochen werden. Die Befehle 


l GOTO Textkonstante, IF Vergleich THEN Textkonstante oder 
GOSUB Textkonstante 


haben dieselbe Wirkung wie die entsprechenden Befehle mit der Nummer 
derjenigen Zeile anstelle der Textkonstanten, in der diese als Marke auftritt. 
Es ist dann auch klar, daß die in einer Sprunganweisung auftretende Text- 
konstante innerhalb des Programms genau einmal als Marke vorkommen 
muß. Bei der Arbeit mit Fiußdiagrammen ist zu beachten, daß die Sprung- 
ziele gerade den Verbindungsstellen entsprechen, die im Flußdiagramm durch 
einen Kreis symbolisiert sind. Man sollte daher im Fiußdiagramm die Verbin- 
dungsstellen bereits mit einem Markennamen versehen. 


Beispiel: Regula falsi 

Versieht man im Flußdiagramm aus Abschnitt 3.1 die Verbundungsstellen 
mit den Marken “NEU, “FEHLER‘ und “ENDE” und ein Unterprogramm 
zur Funktionsauswertung mit der Marke ‘’F’‘, ergibt sich aus dem Flußdia- 
gramm das folgende Programm (mit U für X®, V für X1, W für YO, Z für Y1): 


1:REM REGULA FALSI 
18: INPUT STARTWERTE Xd=";U,'X1="';V 
28: INPUT "SCHRITTZAHL<="';N,'GENAUIGKEIT=";D 
38:1=1:X=U:GOSUB "F'":W=Y 
40:"NEU':X=V:GOSUB "’F’:Z=Y 
50:IFW=ZTHEN’FEHLER” 
68: E=(V-U)*Z/(Z-W):U=V:W=Z:V=V-E 
78: 1F ABSE<=D PRINT "LOESUNG=""; V:GOTO “ENDE” 
8d:IFI<N LET I=1+1:GOTO NEU” 
98:'FEHLER”: PRINT "SCHLECHTER START” 
100:'ENDE“: END 
200: F":Y=COSX-X:RETURN 


Die Verwendung von Marken anstelle von Zeilennummern als Sprungziele 
empfiehlt sich noch aus einem anderen Grund: Es gibt Situationen, z. B. wenn 
man man Programme erweitert, in denen es sich als notwendig erweist, 
Programmzeilen manuell umzunumerieren. Dies ist erheblich einfacher, wenn 
die Zeilennummern in den Programm-Befehlen nicht auftauchen. Auf der 
anderen Seite kosten Marken natürlich zusätzlichen Speicherplatz aus dem 
Hauptspeicher. 

Anstelle der die Marken bezeichnenden Textkonstanten können in GOTO-, 
GOSUB- und IF-THEN-Anweisungen auch Textausdrücke stehen. 

Beispiel: 

10:EINGABE“: INPUT“ 

20:GOTO A$ 

30: ROT” :PRINT"ZIEGELROT":GOTO “EINGABE” 
40:"GELB‘:PRINT"QUITTENGELB‘:GOTO EINGABE” 

50:”BLAU’: PRINT "HIMMELBLAU’:GOTO EINGABE“ 
60:""ENDE“”:END 


Nach Eingabe eines der Sprungziele ROT, GELB, BLAU oder ENDE springt 
der Rechner in die entsprechende Zeile und führt die dort stehenden An- 
weisungen aus. Nach Eingabe des Sprungziels GRUEN antwortet er mit einer 
Fehlermeldung. 

Wir sind bisher immer davon ausgegangen, daß bei einem Programmstart ein 
einziges Programm gespeichert ist, das mit RUN gestartet wird. 
Nun ist es ja durchaus möglich, mehrere nicht zu umfangreiche Programme 
zu speichern. Will man dann je nach Bedarf das eine oder andere Programm 
starten, so reicht das Kommando RUN nicht mehr aus. Es be- 
wirkt stets, daß der Rechner mit der ersten Programmzeile beginnt. Auch 
wenn mehrere Programme gespeichert sind, würde auf diese Weise doch immer 
nur das erste Programm durchgeführt. 


Für einen flexibleren Programmaufruf gibt es mehrere Möglichkeiten. 


| RUN Zeilennummer 


bewirkt den Start des Programms in der entsprechenden Programmzeile, 
| RUN Textausdruck [ENTER 


den Start des Programms in der Zeile, die die dem Textausdruck entsprechen- 
de Marke trägt. Programmzeile bzw. Marke müssen natürlich im Programm 
vorhanden sein. 


Für den Aufruf mit 
RUN Zeilennummer |ENTER 


muß der Benutzer die Nummer des Programms oder Programmteils natürlich 
im Kopf haben. Einfacher ist es daher, die erste Programmzeile mit einer 
Marke zu versehen, die dann als Programmname fungiert, da die meisten 
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Menschen Namen (mit Beziehungen zum Inhalt) sich besser merken können als 
Nummern. 
Anstelle von RUN darf in allen Startkommandos auch GOTO stehen: 


GOTO [ENTER], 
GOTO Zeilennummer |ENTER|, 
GOTO Textausdruck |ENTER 


haben dieselbe Wirkung wie die gleichen Befehle mit RUN anstelle von GOTO 
mit dem einen Unterschied, der wichtig sein kann: 
Bei einem Programmstart mit GOTO werden die Variablen im Haupt- 
speicher, also die Variablen mit zwei Zeichen im Namen und die Felder, 
nicht gelöscht, was bei einem Start mit RUN der Fall ist. 
Verwendet man als Programmnamen nur einen einzigen Buchstaben aus den 
unteren beiden Buchstabenreihen (A,S,D,F,G,H,J,K,L,Z,X,C,V,B,N, 
M) oder das Leerzeichen oder das Gleichheitszeichen ([SPC],=), so gibt es noch 
eine weitere Möglichkeit zum Start dieses Programms: 
Man drücke zunächst die [DEF]-Taste links oben in der Tastatur. Das Wort 


DEF erscheint kleingedruckt im Anzeigefeld. Drücken des Programmnamens 
ohne die einschließenden Anführungsstriche führt dann zum Programmstart. 


[DEF] A 


hat dieselbe Wirkung wie 


GOTO '"A” [ENTER], 


ohne daß dabei beim Programmstart die Anzeige gelöscht wird. 

Die Möglichkeit, Programme mit GOTO oder zu starten, läßt sich be- 
sonders dann sinnvoll einsetzen, wenn ein Programm aus mehreren Teilen be- 
steht, die einzeln gestartet werden sollen, ohne daß dabei Informationen aus 

früher durchlaufenen Programmstellen verlorengehen. 
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4 Die Zusatzgeräte CE-125 und CE-126P 


Die SHARP-Taschenrechner erreichen erst mit den Zusatzgeräten CE-125 (für 
PC-1246/1247/1251/1260/1261) bzw. CE-126P (für PC-1246/1247/1350/1401) 
ihre volle Leistungsfähigkeit. Diese Geräte erfüllen mehrere Funktionen: 

Sie dienen dem Drucken von Programmen (LLIST), der dauerhaften Ausgabe 
von Ergebnissen (LPRINT) und der Speicherung und Wiedergabe von Pro- 
grammen (CSAVE, CLOAD, MERGE) und Daten (PRINT #, INPUT #) mit 
Hilfe eines Kassettenrecorders. Beim CE-126P ist eine Anschlußmöglichkeit 
für einen Recorder vorhanden, beim CE-125 ist der Recorder bereits integriert, 
es kann aber auch ein externer Recorder verwendet werden. In diesem Abschnitt 
sollen einige Anregungen zur Verwendung der Zusatzgeräte gegeben werden, 
die ebensowenig vollständig sein können wie die Beschreibung der Möglich- 
keiten der Rechner in den obigen Abschnitten. Die gerätetechnische Verbin- 
dung zwischen Rechner und Zusatzgerät entnehmen Sie bitte der Bedienungs- 
anleitung. 


4.1 Druckerbetrieb 


Ebenso wie der Rechner selbst ist auch der Drucker ausschließlich im manuel- 
len Betrieb zu verwenden. Zu diesem Zweck muß man den Printer-Schalter 
auf ON stellen und die Tasten drücken. Ein eingege- 
bener arithmetischer Ausdruck oder eine arithmetische Anweisung wird nach 
der Bedienung der -Taste linksbündig auf dem Drucker ausgegeben. 
Ist der Ausdruck berechenbar oder die Anweisung ausführbar, wird das 
Rechenergebnis oder der Speicherinhalt in einer neuen Druckzeile rechts- 
bündig ausgedruckt. Fehlermeldungen werden nicht gedruckt. Interessanter 
ist die Druckerbenutzung bei den zu LIST und PRINT analogen Programmier- 
befehlen LLIST und LPRINT. Bitte beachten Sie, daß der Drucker pro Zeile 
24 Zeichen ausgeben kann und von selbst mehrzeilig druckt, falls mehr als 

24 Zeichen in einer zu druckenden Zeichenkette stehen. Dem Befehl LIST 
aus Abschnitt 2.4 entspricht der Befehl 


I LLIST, 


der im RUN- und PRO-Mode den Drucker zur Auflistung des gespeicherten 
Programms veranlaßt. 
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Durch zusätzliche Angabe von Zeilennummern können auch Teile des 
Programms aufgelistet werden: 


Der Befehl bewirkt die Auflistung des Programms 


LLIST zı, za von der Zeilennummer z, bis zur Zeilennummer z, 
LLIST von der ersten bis zur letzten Zeilennummer 


zusätzlich beim PC-1260/61, -1350, -1401 

















LLIST z 
LLIST zı, 


in der Zeile mit der Zeilennummer z 

von der Zeilennummer z, bis zur letzten Zeilen- 
nummer 

von der ersten Zeilennummer bis zur Zeilen- 
nummer z3 








LLIST, z, 





Anstelle der Zeilennummern können im LLIST-Befehl auch Markennamen 
verwendet werden, durch die die erste und die letzte aufgelistete Zeile ge- 
kennzeichnet ist. Jeder Programmzeile entspricht mindestens eine Druckzeile. 
Enthält eine Programmzeile mehr als 24 Zeichen, erfolgt die Ausgabe auf 
dem Drucker mehrzeilig. Ausprobieren! 


Dem Befehl PRINT aus Abschnitt 2.3 entspricht der Befehl 


I LPRINT, 


der im Rahmen einer Programmausführung den Drucker zur Ausgabe von 
Daten und Texten veranlaßt. PRINT und LPRINT haben die gleichen Spezi- 
fikationsregeln. Insbesondere ist die Bedeutung der Formatanweisung USING 
dieselbe. In der Wirkungsweise sind dagegen folgende Unterschiede zu be- 
achten: 


Nach der Ausführung eines LPRINT-Befehls unterbricht der Rechner 
die Programmdurchführung nicht. Die Befehle WAIT und PAUSE 
werden daher nicht benötigt. 

Eine Druckzeile umfaßt 24 Zeichen, bei längeren Zeichenketten wird 
mehrzeilig gedruckt. 

Jeder LPRINT-Befehl beginnt mit einer neuen Druckzeile. 

Der Befehl LPRINT“ ‘' bewirkt einen Zeilenvorschub. 


Fügt man in einem Programm den Befehl 

| PRINT=LPRINT 

ein, so werden alle nachfolgenden PRINT-Anweisungen in LPRINT-Anwei- 
sungen umgeformt. Der Befehl 

I PRINT=PRINT 

hebt diese Wirkungsweise wieder auf. 


Wird ein Programm mit DEF oder GOTO gestartet, so kann PRINT=LPRINT 
auch als Einzelbefehl vor dem Programmstart eingegeben werden. 
Ausprobieren! 
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Beispiel: Runge-Kutta-Verfahren 
Das System von Differentialgleichungen 


Fl, Yız +, Yn) 
fx, Yız.--, Yn) oder kurz Y=- 


’ 
Yı 
’ 
y2 


Yn = fnlX, Yır +, Yn) 
soll mit vorgegebenen Anfangswerten 
Yılxg)=bı,...,Yn(xe) = bn 


für xe[xs, xı ] numerisch gelöst werden. 


Dazu wird das Intervall [xg, x, ] in m gleiche Teile geteilt, und es werden 
Näherungslösungen an den Stellen 


xX=Xg, Xg+h, xg +2h,...,xg+mh=x, 
berechnet, wobei h = (x, -xo)/m. 
Liegt eine Näherungslösung 

YV=Wıs.,Yn) für VER) = alla... ,yala)) 
vor, so ergibt sich eine Näherungslösung 

y für Yix+h) 
nach dem Runge-Kutta-Verfahren aus den folgenden Formeln: 
=h-F,y) 
= h-f(x+h/2,Y +u/2) 
h-F(x+h/2,y +V/2) 
=h-fix+h,y+w) 


= y+(U+2V+2W+2)/6 


<y.n) gs, <,c, 
" 


Das folgende Programm beruht auf diesen Formeln: 


10: "RUNGEKU’:N,X,W 

28: DIM Y (N), F(N), Z(N), U(N),S(N) 

36: FORI=1TO N:READ Y(I):NEXTI 

48: INPUT“ TEILINTERV.=";M:H=(W-X)/M 
108: “FORMAT”: INPUT"FORMAT=";A$ 
110: USING A$: GOSUB“AUSGABE“ 
120: INPUT’DRUCK GUT?J/N’';B$ 
130:1F B$="NLPRINT“ “:GOTO”’FORMAT“ 
140: 1FB$<>"J"THEN 120 
200: "RUKU‘: FORI=1 TON: Z(I)=Y(TD):NEXTI 


93 


210:GOSUB’FUNKTION' 

220: FOR I=1 TO N:U(D=H + F(N:S(D=U(D:NEXTI 
230:X=X+H/2 

240:FORK=1TO2 

250: FORI=1 TON:Z(D=Y(D+U(D/2: NEXTI 

260: GOSUB“FUNKTION’ 

270: FORI=1 TO N:U(D=H*F(D:S(D=S(D+2*U(M:NEXTI 
280:NEXTK 

290:X=X+H/2 

306: FOR I=1 TO N:Z(I)=Y(D+U(N):NEXTI 
310:GOSUB’FUNKTION 

328: FOR I=1 TON:S(D=S(D+H*F(D:Y(D=Y(D+S(D/6:NEXTI 
330:GOSUB" AUSGABE" 

340: IF X <W THEN’RUKU” 

350: END 

400: REM SYSTEMDIMENSION 

410:DATA 

428: REM INTERVALLGRENZEN 

430:DATA 

440: REM ANFANGSWERTE 

450 DATA 

580: ”"FUNKTION”: 


590: RETURN 
680: AUSGABE“ :LPRINT X;Y(1);...; Y{N) 
618: RETURN 


Anmerkungen zum Programm: 


1. 
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Das Runge-Kutta-Verfahren steht in den Zeilen 2@® bis 350; um Speicher- 
platz zu sparen, wird für die Größen u, v w, Z dasselbe Feld U benutzt. 
Die Programmzeilen 10 bis 40 dienen der Dateneingabe, die Programm- 
zeilen 100 bis 140 der Wahl des Ausgabeformats. 


. Die Ausgabeprozedur steht als Unterprogramm in den Zeilen 60 bis 610. 


Es wird zeilenweise x, Yı, ..., Yn ausgegeben. Die Zeile 600 ist dem jewei- 
ligen Problem anzupassen. 


. Die Zeilen 410, 430 und 450 sind DATA-Zeilen. In die Zeile 419 ist die 


Dimension N des Differentialgleichungssystems einzutragen. Zeile 430 
enthält die Intervallgrenzen x. und x;. In Zeile 450 müssen die Anfangs- 
werde y4, ..., Yn Stehen. 


. In die Zeilen 50® ff. sind als Unterprogramm die Funktionsauswertungen 


FI) =HIX, ZU)... ZN)... FIN = NIX, ZU), ..., ZN)) 
einzutragen. 


Programmdurchführung: Wir führen das Programm am Beispiel des folgenden 
Differentialgleichungssystems durch: 

yı = Yyı = yıya 

y2 = Yıya- y2 
Es handelt sich dabei um ein einfaches Modell für die Wechselwirkung 
zwischen den Populationsgrößen zweier verschiedener Tierarten, wenn die 
erste Art der zweiten als Hauptnahrung dient (Räuber-Beute-Modell). Die 
unabhängige Variable x ist dabei die Zeit (gemessen z.B. in Jahren), y; ist der 
Bestand an Beutetieren, y2 der Bestand an Raubtieren (gemessen z.B. in je 
tausend Stück). Als Anfangswerte nehmen wir an 


vı(d) =y2(0) = 2. 
Betrachtet wird das Differentialgleichungssystem im Zeitintervall [9,8]. 
A. Zunächst muß das Programm an das Problem angepaßt werden. Dies 
geschieht durch Eintippen der folgenden Zeilen: 
410:DATA2 
430: DATA 0,8 
450:DATA 2,2 


586: "FUNKTION": F(I)=Z(1) +Z(1)*ZI2): F(2)= ZI)» Z(2)-Z2) 
600: "AUSGABE":LPRINTX;Y(1);Y (2) 


B. Programmstart mit RUN. Durch 
TEILINTERV.= 


fragt der Rechner nach der Zahl der Teilintervalle und damit implizit 
auch danach, wie genau die Näherungslösung der exakten Lösung ent- 
sprechen soll. Je größer die Zahl der Teilintervalle, desto größer die Genau- 
igkeit, desto größer aber auch der Rechenaufwand. Wir geben ein 


16 Teilintervalle 
C. Durch 
FORMAT= 


fragt der Rechner nach dem Ausgabeformat für die USING-Anweisung. 
Um keinen Formatfehler zu produzieren und um eine Lücke zwischen 
den Zahlen zu sichern, müssen genügend Stellen vor dem Punkt stehen. 
Bei zu großen Zahlen oder zu großen Systemen muß neben der Format- 
wahl auch die Druckzeile 60® abgeändert werden. Wir wählen die Eingabe 


FORMAT=SHHH.HHH, 


die zu einer Fehlermeldung führt, wenn eine Näherungslösung mehr als nur 
zwei Stellen vor dem Dezimalpunkt besitzt. 
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D. Der Rechner gibt die Anfangswerte im gewählten Format aus und hält 
noch einmal an, wobei im Anzeigefeld die Frage 


DRUCK GUT?J/N 


gestellt wird, die man mit J für ja oder N für nein beantworten kann. 
Antwortet man mit N, so geht der Rechner nach C zurück und ermöglicht 
eine nochmalige Eingabe des Formats. Wir antworten mit 


DRUCK GUT? J/NJ 
E. Der Drucker gibt jetzt die folgenden Werte für x, yı, Ya aus: 


0.000 2.000 2.000 


0.5008 1.011 2.555 4.500 0.817 0.263 
1.000 0.496 2.211 5.000 1.183 0.262 
1.5068 0.313 1.628 5.500 1.691 0.325 
2.000 0.260 1.136 6.000 2.272 0.532 
2500 0.266 0.784 6.500 2.543 1.104 
3.000 0.316 0.549 7000 1.886 2.103 
3.500 60.412 0.399 7500 0.930 2.549 
4.000 0.571 0.308 8.000 0.466 2.148 


Für den ersten Test des Programms zur Auffindung möglicher Programmier- 
fehler eignet sich das obige Räuber-Beute-Modell nicht so gut, weil die exakte 
Lösung nicht bekannt ist. Hierzu verwende man lieber die Aufgabe 


yı = y2, V2= y1, va (Bd) = 1, y2(B) = 
mit der exakten Lösung yı (x) = cosx, y2 (x) = sinx (Betriebsart RAD). 


4.2 Speicherung und Dokumentation von Programmen 


Auch wer das Zusatzgerät CE-125 bzw. CE-126P nicht als Ausgabemedium 
benutzt (oder benutzen kann, weil er aus Platzgründen nur den Rechner 
selbst ‚„‚vor Ort’ mit sich führt), benötigt es dennoch zur dauerhaften Speiche- 
rung von Programmen, die andernfalls immer wieder neu eingetippt werden 
müßten. Dazu gehört auch die Dokumentation der Programme, um diese auch 
nach längerer Zeit noch nachvollziehen und richtig bedienen zu können. 
Nehmen wir an, daß ein vollständig ausgetestetes Programm im Rechner 
gespeichert ist. Der Hauptspeicher soll für ein anderes Programm freigemacht 
werden, ohne daß das gespeicherte Programm verlorengeht. Jetzt sind die 
folgenden Schritte zu unternehmen: 


1. Anschluß des CE-126P an einen geeigneten Kassettenrecorder mit Fern- 
steuerung (REMOTE) und Bandzählwerk. Beim CE-125 ist der Recorder 
bereits integriert. 


2. Aufsuchen einer zur Aufzeichnung geeigneten Stelle auf der Kassette. 
Hierzu ist der REMOTE-Schalter auf die Stellung OFF zu bringen. 
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. Der REMOTE-Schalter wird auf ON gestellt. Auf dem Kassettenrecorder 
werden die zur Aufnahme benötigten Tasten gedrückt. Man merke sich den 
Zählerstand des Bandzählwerks. Bei externem Recorder ist der Lautstärke- 
regler auf Mitte bis Maximum, der Tonhöhenregler auf „hoch’ zu stellen. 

. Für das zu speichernde Programm muß ein Name gefunden werden, unter 
dem es später wieder in den Rechner geladen werden kann. Bei dem 
Namen handelt es sich um eine Textkonstante ‘’Text’’ mit maximal 

7 Zeichen, z.B. "REGFAL” für ein Regula-Falsi-Programm. Ein innerhalb 
des Programms verwendeter Programmname kann mit diesem Namen 
übereinstimmen, muß es aber nicht. Mit dem Befehl 


CSAVE‘’Name” [ENTER 


beginnt die Aufnahme. Die Kassette setzt sich in Bewegung. 


. Es ertönt zunächst ein konstanter Piepton, der eine gewisse Ungenauigkeit 
beim Wiederauffinden der Aufnahme ermöglicht, indem er die Trennung 
der verschieden auf Band gespeicherten Programme sicherstellt. Die folgen- 
den Töne sind unregelmäßiger. Es erfolgt zunächst die Aufnahme des 
Programmnamens, dann des Programms. Mit dem Ende der Aufnahme 
erscheint das Bereitschaftssymbol > im Anzeigefeld. Die Kassette bleibt 
stehen. 

. Der Kassettenrecorder wird abgeschaltet, der REMOTE-Schalter auf OFF 
gestellt, die Kassette auf den Anfang der Aufnahme zurückgespult, der 
REMOTE-Schalter wieder auf ON gestellt und die PLAY-Taste des Kaset- 
tenrecorders gedrückt. 

. Nach Eingabe von 


CLOAD? [ENTER 


wird die Übereinstimmung der Aufnahme mit dem gespeicherten Programm 
überprüft. Die Kassette setzt sich in Bewegung, es ertönt zunächst der 
konstante Piepton, dann das gespeicherte Programm, endend mit dem 
Bereitschaftssymbol >, wenn alles gutgeht. Sollten im Verlauf der Aufnah- 
me und Überprüfung hier nicht vorgesehene Unregelmäßigkeiten auftreten, 
beginne man die ganze Prozedur von vorn und wiederhole sie. 


Das Programm ist jetzt auf Band gespeichert, und man kann ziemlich sicher 
sein, es später wieder einlesen und benutzen zu können, wenn man weiß, wo 
es steht und was es beinhaltet. Hierzu ist eine Dokumentation des Programms 
erforderlich, zu der mindestens die folgenden Dinge gehören: 


8. Der Name, unter dem das Programm auf Kassette gespeichert ist, sowie 


der Platz (Band Nr., Seite, Zählwerk Nr.) des gespeicherten Programms. 


9. Eine Auflistung des Programms. 
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Der folgende Vorschlag benutzt hierzu den Drucker: 


LPRINT“Name” Ausgabe von 
Name 
auf dem Drucker 


LPRINT’BAND 1 SEITE 1 Ausgabe von Band-Nr. und Seite 


o.ä. auf dem Drucker 
LPRINT‘015—029" Ausgabe der Zählwerk-Nr. auf 
o.ä. dem Drucker 
LPRINT“ Vorschub der Papierrolle 
LLIST Auflistung des Programms 





Diese Dokumentation sollte noch durch ggf. handschriftliche Zusätze zur Be- 
dienung des Programms (Programmstart, erforderliche Eingaben) ergänzt 
werden. 

Will man zu einem späteren Zeitpunkt das Programm von der Kassette wieder 
in den Rechner bringen, so ist folgendes zu tun: 


10. Anschluß des Kassettenrecorders wie unter 1., REMOTE-Schalter auf 
OFF stellen und den Programmanfang auf dem Band mithilfe des Zähl- 
werks aufsuchen. 

11. REMOTE-Schalter wieder auf ON stellen und die PLAY-Taste des 
Kassettenrecorders drücken. Bei externem Recorder müssen sich Laut- 
stärke- und Tonhöhenregler wieder in der in 3. angegebenen Stellung 
befinden. 

12. Nach Eingabe von 


| CLOAD’'Name” 


setzt sich die Kassette in Bewegung. Es erfolgt wieder zunächst der 
konstante Piepton, dann die unregelmäßigeren Töne, die den Programm- 
namen und das Programm kennzeichnen. 
Der Rechner nimmt das zugehörige Programm aber nur dann auf, wenn 
der Name mit dem Namen in der CLOAD-Anweisung übereinstimmt. 
Andernfalls sucht er auf dem Band weiter nach dem richtigen Programm- 
namen, bis er ihn gefunden hat. Die Suche kann manuell durch Drücken 
der -Taste abgebrochen werden. 

13. Nach der Aufnahme des Programms zeigt der Rechner durch das Bereit- 
schaftssymbol > an, daß das geladene Programm im Rechner gespeichert 
ist. Der Kassettenrecorder kann ausgeschaltet werden. 


Für den PC-1251/1260/1261/1350 können die Bandbefehle CSAVE, CLOAD 
und CLOAD? im RSV-Mode auch zum Speichern und Laden von Reserve- 
Ausdrucken benutzt werden. 
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4.3 Weitere Bandbefehle 


Im Abschnitt 4.2 wurde die für die meisten Benutzer wichtigste Funktion des 
Bandbetriebs bereits behandelt, d.i. die Speicherung von Programmen und die 
damit verbundenen Befehle CSAVE, CLOAD? und CLOAD. Der CE-125 bzw. 
CE-126P bietet noch weitere Möglichkeiten zur Arbeit mit Magnetbändern, 
als da sind 


— die Zuladung von Programmen in den Rechner (Befehl MERGE, nicht 
beim PC-1491), 

— sequentielle Bearbeitung langer, auf Band gespeicherter Programme (Befehl 
CHAIN, nicht beim PC-1491), 

— die Speicherung von Daten auf dem Magnetband (Befehle PRINT # und 
INPUT #). 


Für eine systematische Beschreibung dieser Befehle sei auf die Bedienungs- 
anleitung verwiesen. Wir beschränken uns auf einige Hinweise. 


Mit dem Befehl 
l MERGE “Programmname“' 


ist genauso umzugehen wie mit dem CLOAD-Befehl, er dient ebenfalls dazu, 
auf Band gespeicherte Programme in den Rechner zu laden. Der Unterschied 
zum CLOAD-Befehl besteht darin, daß die bereits im Programmspeicher 
befindlichen Programme durch die Ladung des neuen Programms nicht 
gelöscht werden, wenn man den MERGE-Befehl verwendet. Dadurch lassen 
sich mehrere Programme, die getrennt abgespeichert wurden, in den Rechner 
laden. 
Die Zeilennummern der einzelnen Programme werden dabei nicht geändert, 
manche Zeilennummern können daher mehrfach vorkommen. 
Beispiel: Die Programme 
18:“PROG1’: LPRINT "ANFANG PROG1“ 
20:°A’':INPUT "SPRUNG NR’';Z:GOTOZ 
30: 'B: INPUT SPRUNG NAME“; A$ 
40:”C":GOTOA$ 
50:''D’': LPRINT ENDE PROG1” 
60: E’: GOTO 10 
10: PROG2’: LPRINT "ANFANG PROG 2° 
20: F’: INPUT “SPRUNGNR';Z:GOTOZ 
30:"G’': INPUT "SPRUNG NAME’';A$ 
48:GOTO A$ 
50:’T": LPRINT "ENDE PROG2“ 
10:"'PROG3'': LPRINT "ANFANG PROG3” 
20:3: INPUT SPRUNG NR’';Z:GOTOZ 
30:’K’: INPUT "’SPRUNG NAME“';A$ 
40: L":GOTO A$ 
50:”M‘': LPRINT “ENDE PROG3“ 
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lassen sich folgendermaßen in den Rechner bringen: 


A. Eingabe der ersten 6 Programmzeilen 1 bis 60. Speicherung auf Band mit 
CSAVE‘“PROG‘'. 

B. Zuladungen desselben Programms mit MERGE’'PROG''. 

Es befinden sich jetzt zwei identische Exemplare des ersten Programms 
im Rechner. 

C. Löschung der Programmzeile 60, Änderung der Programmzeilen 10 bis 5®, 
indem PROG1 durch PROG2 und die Marken A bis D durch F bis I ersetzt 
werden. Diese Änderungen wirken nur auf das zweite Exemplar des ur- 
sprünglichen Programms. 

D. Zuladung des gespeicherten Programms mit MERGE’’PROG“’ und ent- 
sprechende Änderungen wie in C. 


PROGI 


Programmende 


PROG2 


Programmende 


PROG3 


Programmende 


1. Manuelle Eingaben zur Löschung, Einfügung oder Änderung von Programm- 
zeilen wirken nur auf das jeweils /etzte im Programmspeicher stehende Pro- 
gramm. 

2. Mit RUN, RUN Zeilennummer, GOTO oder GOTO Zeilennummer läßt sich 
nur das erste im Programmspeicher stehende Programm starten. Fügt man 
etwa die Programmzeile 
15: REM START 
in das obige Beispiel ein, so wird diese Zeile zum Bestandteil des dritten 
Programms. Der Befehl RUN 15 führt dann zu einer Fehlermeldung, weil 
die Programmzeile 15 im ersten Programm nicht vorkommt. 

Alle Programme außer dem ersten lassen sich also nur durch RUN Text- 
ausdruck, GOTO Textausdruck oder mit starten, wobei natürlich 
die jeweils erste Programmzeile mit einer entsprechenden Marke versehen 
sein muß. Im obigen Beispiel lassen sich die letzten beiden Programme mit 
RUN "PROG2' bzw. RUN "'PROGS3'' starten. 


3. Sprunganweisungen (GOTO, GOSUB, IF-THEN) mit einer Zeilennummer 
zur Kennzeichnung des Sprungziels wirken nur innerhalb desselben Pro- 
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Der MERGE-Befehl bewirkt, daß im Programm- 
speicher des Rechners das neue Programm in 
den Bytes gespeichert wird, die auf das in einem 
Byte gekennzeichnete Programmende des alten 
Programms folgen. 






Befinden sich mehrere Programme im Rechner, 
die auf diese Weise voneinander abgetrennt 
sind, so ist folgendes zu beachten: 


gramms. Kennzeichnet man dagegen die Sprungzeile durch Marken, so kann 
man von einem Programm ins andere springen. 


4. Kommt der Rechner ans Ende eines Programms, so beendet er den Programm- 
lauf, auch wenn das Programm nicht mit dem END-Befehl endet und im Pro- 
grammspeicher noch ein weiteres Programm folgt. 


Will man auf Band gespeicherte Programme mit dem MERGE--Befehl in den 
Rechner hinzuladen, so sind sie vorher in eine Form zu bringen, die den hier 
genannten Besonderheiten Rechnung trägt: 

Die abgespeicherten Programme müssen einen Namen haben, unter dem ihre 
erste Zeile aufgerufen werden kann. 

Unterprogramme, die man nachträglich noch ändern will, dürfen nicht im abge- 
speicherten Programm stehen, sondern müssen nachträglich eingefügt oder zu- 
geladen werden. Sie müssen daher vom Hauptprogramm stets mit einem Marken- 
namen und nicht mit einer Zeilennummer aufgerufen werden. 


Bei der Verwendung zweier unabhängig voneinander erstellter Programme z.B. 
als Hauptprogramm und als Unterprogramm ist darauf zu achten, daß die be- 
nutzten Variablennamen zueinander passen. Entsprechende Anforderungen 
des Hauptprogramms an das Unterprogramm sollten daher mit dem Hauptpro- 
gramm dokumentiert werden. 


Beispiel: In einem Hauptprogramm wird innerhalb einer Laufanweisung mit 

der Laufvariablen I ein Unterprogramm mit einer GOSUB-Anweisung aufge- 

rufen. Das Hauptprogramm erwartet eine Wertzuweisung Y = f(X) mit einer 

durch das Unterprogramm festgelegten Funktion f(x), deren Berechnung mög- 

licherweise auch sehr kompliziert sein kann. Für die weitere Funktionsfähigkeit 

des Hauptprogramms ist dann wichtig, 

— daß tatsächlich eine Wertzuweisung Y = f(X) erfolgt und nicht etwa Y = f(Z), 

— daß innerhalb des Unterprogramms die Laufvariable | nicht verändert wird; 
sie sollte dort also am besten gar nicht benutzt werden. Dasselbe gilt für ande- 
re Variablennamen, die im Hauptprogramm noch eine Rolle spielen. 


Die hier genannten Probleme im Zusammenspiel zwischen Hauptprogramm und 
Unterprogramm bestehen natürlich unabhängig vom MERGE-Befehl. Sie wer- 
den aber bei Verwendung dieses Befehls schwieriger, wenn der Benutzer mit 
MERGE zwei Programme zusammenfügt, die er zu einem früheren Zeitpunkt 
unabhängig voneinander erstellt hat. 


Die Speicherung von Daten auf dem Magnetband ist vor allem dann erforderlich, 
wenn es sich um größere Datenmengen handelt, die zu einem späteren Zeitpunkt 
wieder zur Verfügung stehen sollen. Größere Datenmengen sind im Rechner i. a. 
auf Feldern abgespeichert. Wir beschränken uns daher auf Hinweise zu diesem 
Fall. 

Der Befehl zur Speicherung der in Feldern abgelegten Werte auf Magnetband 
lautet 


I PRINT #°Blockname’'; Feldname (*), Feldname (*), ... 
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Der Blockname mit maximal 7 Zeichen kennzeichnet den Anfang des abge- 
speicherten Datensatzes auf dem Magnetband. Im Anschluß daran werden die 
Feldnamen, die Feldgrenzen und die auf den Feldern abgelegten Werte bzw. 
Texte abgespeichert. Voraussetzung dafür ist, daß der angeschlossene Kassetten- 
recorder vor dem PRINT #-Befehl in Aufnahmebereitschaft versetzt wurde, ge- 
nauso wie beim CSAVE-Befehl. Bei der Verwendung von PRINT # innerhalb 
eines Programms sollte man daher entsprechende Anweisungen auf dem Anzeige- 
feld ausgeben lassen, die PRINT #-Anweisung also z. B. in die folgende Befehls- 
folge einbetten: 


PRINT ’DATENSPEICHERN“ 
PRINT "SUCHE BAND“ 
PRINT "REMOTE/PLAY“ 
PRINT#... 

PRINT "BAND AUS’ 


Die auf Band gespeicherten Daten können nun mit dem Befehl 
| INPUT #°'Blockname‘'; Feldname (*), Feldname (*), ... 


wieder in den Rechner eingelesen werden. Dabei müssen sowohl der Blockname 
als auch die Feldnamen in richtiger Reihenfolge als auch die Feldgrenzen mit 
den auf Band gespeicherten Daten übereinstimmen. Stimmt der Blockname nicht 
überein, so werden die nachfolgenden Daten nicht eingelesen, sondern der Rech- 
ner sucht auf dem Magnetband weiter nach dem richtigen Blocknamen. Stim- 
men dagegen Feldnamen oder Feldgrenzen nicht überein, so reagiert der Rech- 
ner mit einer Fehlermeldung. 

Auch bei der INPUT #-Anweisung muß natürlich der Kassettenrecorder vorher 
in Bereitschaft versetzt worden sein, genauso wie beim CLOAD-Befehl. Inner- 
halb eines Programms läßt sich das etwa durch die folgende Befehlsfolge über 
das Anzeigefeld regeln: 


PRINT "DATEN EINLESEN“ 
PRINT "BLOCKANFANG”' 
PRINT "REMOTE/PLAY“ 
INPUT #... 

PRINT "BAND AUS” 


Bei der Speicherung verschiedener Datenblöcke auf Magnetband sollte man 
diese tunlichst unter Angabe der Zählernummer, des Blocknamens, der Feld- 
namen und der Feldgrenzen dokumentieren. 

Für die Speicherung von Daten auf dem Magnetband gibt es kein Analogon zum 
Befehl CLOAD?, mit dem man die richtige Abspeicherung überprüfen könnte. 
Da die Speicherung auf Magnetband erfahrungsgemäß sehr fehleranfällig ist, 
sollte man sicherheitshalber jede Bandaufnahme zweimal machen in der Hoff- 
nung, daß eine davon dann fehlerlos ist. 
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Lösungen zu den Aufgaben 


Aufgabe 1: ohne Lösung 


0.303030303 
3.03030393E - 02 
5483. 

0. 

ERROR 9 


Aufgabe 2: 







Aufgabe 3: Die Zahl 999999999 hat nur neun Ziffern, richtig sind zehn 
Neunerziffern. 


Aufgabe 4: Arithmetischer Ausdruck 
(2/(1.4-1)*(1-0.751.((1.4-1)/1.4))) A 0.5 

Ausgabe: 6.281224375E - 01 

Aufgabe 5: Arithmetischer Ausdruck 


n*n*2.1E7/(1501.2)*(3.514/12) [ENTER 












Ausgabe: 115193.3619 Ergebnis: Fx = 115.19 kN 
Aufgabe 6: 
Eingabe Ausgabe 
4* (COS 0.5) A3-3* (COS 0.5) 7.073720173E - 62 
1/2*LN ((8.5 + 1)/(08.5 -1)) ERROR 2 


4.621171573E — 01 
5.222381033E - 91 
4.183057387E - 01 
-5.582169879E - 83 


(EXP (2*8.5) - 1)/(EXP(2*0.5) +1) 
LN(TAN (0.5/2+7/4)) 

0.5/2*/ (1-0.51 2) +1/2*ASNO.5 
0.51 5/5*(LN.5-1/5) 








Aufgabe 7: 








Ausgabe 


0.301168679 
ERROR 2 
0. 


Bemerkung 


1-2*A<p 
Arithmetischer Ausdruck auf der linken Seite, 


es erfolgt keine Änderung der Speicherbelegungen. 


Arithmetischer Ausdruck auf der linken Seite. 


BAE ist kein zulässiger Variablenname. 
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Aufgabe 8: 






Ausgabe 






















L= 18.75 18.75 
D=1.25 1.25 
E=0.75 0.75 
V=n+L/12*(D*D+D+E+E+E) 15.03301172 





X=n/V*L*L/48*(3*D*+D+2*D*E+E+*E) 10.98561225 


V= 15.03 m? x = 10.91 m 


Aufgabe 9: 









6 











A=1 

B=2 

C=B+*3 3 
D=C+4 24. 
E=D*5 120. 
F=E+*6 720. 
G=F*7 5040. 
H=G*8 40320. 
I=H*9 362880. 
J=1*10 3628800. 








Aufgabe 10: Wegen 


in? (üi-1)12 i2 i-1)N? i 


A=085 
s=A 
A=A/3 
S=S+tA 
A=Ax3/10 
S=S+A 
A=Ar2/7 
S=S+tA 
A=Ax5/18 
S=S+tA 
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0.5 
0.5 


1.666666667 IE - ©1 
6.666666667 IE — 01 
5.000000001E — 82 
7.166666667E - 01 
1.428571429E — 02 
0.730952381 

3.968253969E — 83 
0.734920635 


























Aufgabe 11: Der Cursor wird auf das A gesetzt und folgende Tasten werden 
gedrückt: 


ns BSBGSBGrF BGG ISSN GG 


Aufgabe 12: Die zweite Berechnungsmöglichkeit wird mit F bezeichnet. 


71.98611023 71.9861084 
7201.912828 7199.999858 
ERROR2 719999.4997 





Aufgabe 13: Programmeingabe 








Eingabe Ausgabe 


18R=SIN(2* FJ-(COS(F))A2| 10:R=SIN(2* F)-(COS(F))A2 









20X=R *COS(F) 20:X=R * COS(F) 
3dY=R*SIN(F) 30:Y=R*SIN(F) 
48END 40:END 





Werte nach dem Programmaufruf 





-1. 1") 


1.804809472E - 91 | 5.80127019E - 02 
3.080127019E - 01 | 5.334936491E — 91 
®. D. 








Aufgabe 14: Das folgende Programm stellt eine mögliche Lösung dar, die nicht 
direkt alle Formeln eingibt und dadurch vorher berechnete Werte weiterver- 
wenden kann. 


Programm 


18:A=n/4*D*D 
20:B=n/4*E*»E 
30:1= A/16*D*D 





40:3=B/16*E*E Werte für D=2 und E=1.8: 
50:A=A-B A = 0.596902605 
69:1=1-J R 

70: 2s1D I = 2.700984286E - 01 
80:END W = 2.700984286E - 01 
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Aufgabe 15: 

18: INPUT”X=";X 

20-1" -12*X-1)/(X*X+X+1) 

38: PRINT USING #H.- HH"; x=" X; UY=";Y 

50:END 

Startet man das Programm für die angegebenen x-Werte, so erhalt man folgen- 


de Wertetabelle: 
- 2.00 | - 1.50 0.00 | 0.50 | 1.00 | 1.50 | 2.00 


-1.00 | 0.00 | 0.33 | 0.42 | 0.42 


1.00 | - 0.50 









Aufgabe 16: 


18: INPUT ’’X=";X 
20:Y=2*(X+1) 
30:Z=EXP(X) 

48: USING’ HH. HH" 
50:PRINT'Y=";\Y;' 1ıZ="';Z 
60:END 





Als Näherung für den Schnittpunkt erhält man P = (1.7, 5.4). 


Aufgabe 17: 
A:H=2*F/n/D/(D-VID*D-E+*E)) 
Der Aufruf erfolgt für F = 150 und D = 100 jeweils nach Eingabe von E 


durch |SHIFT]| A |LENTER 


d[mm] 1 2 3 4 5 6 7 8 9 18 
H [N/mm] | 190.98 | 47.74 | 21.22 | 11.93] 7.63 | 5.30 | 3.89 | 2.98 | 2.35 | 1.91 


106 


Aufgabe 18: 
18: INPUT "A="; A, ''B="";B 
20:D=A*A/4-B 
30:1F D<@THEN 90 
40:X=-A/2+,/D 
50:Y=-A/2-/D 
60: PRINT'X1=";X 
70: PRINT"X2=";Y 
80: GOTO 130 
90:R=-A/2 
180:1=/-D 
110: PRINT "REAL=";R 
120: PRINT "IMAGINAER=";I 
130: END 


Die Fallunterscheidung, ob reelle oder konjugiert komplexe Lösungen 
vorliegen, wird in Zeile 3® getroffen. 


Aufgabe 19: 
1:REM EFFEKTIVER MONATSZINS 
18: INPUT "KREDIT=";K 
20: INPUT “LAUFZEIT=";M 
39: INPUT MONATSRATE=";R 
408:X=2*(M*R/K-1)/(M + 1) 
50: PRINT USING "##.4##"; 'FORMELWERT”;X * 100; ’%' 
60: INPUT “ITERATIONEN<=';N 
70:1NPUT “GENAUIGKEIT=";D 
80:1=1 
98:Y=(1+X) AM*(K*X-R)+R 
100:Z=(1+X) A(M-1)*((M+1)*+K*X+K-M+*R) 
118:IFZ=OÖTHEN 169 
120:E=Y/Z 
130:X=X-E 
140:IF ABSE <=DTHEN 180 
150:IFI<N THEN 200 
160: PRINT SCHLECHTER START” 
170:GOTO 220 
180: PRINT “MONATSZINS”; X * 100; ''%'' 
198: GOTO 226 
2006:1=1+1 
210:GOTO 98 
220: END 
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Das dem Flußdiagramm in 3.3 entsprechende Newton-Verfahren ist in den 
Zeilen 6 bis 220 enthalten. Anstelle der gefundenen Näherungslösung wird 
unmittelbar der effektive Monatszins ausgegeben. Man kann sich bei der 
Programmdurchführung noch Tipparbeit sparen, wenn man die Zeilen 60 
und 7ß ersetzt durch 


60:N= 19 

70:D=1E-9 

Zahlenbeispiele: K = 4000 

Laufzeit Monatsrate Formelwert Monatszins 
18 249.30 1.282631579 % 1.239410668 % 
24 193.50 1.288 % 1.230404268 % 
30 160.00 1.290322581 % 1.219082632 % 
36 137.80 1.298378378 % 1.213291212 % 


Aufgabe 20: Die Zeilen 190, 200 und 210 des Programms aus Aufgabe 19 
werden gelöscht, die Zeilen 80 und 15 ersetzt durch 


80: FORI=1TON 
158:NEXTI 


Aufgabe 21: 

1:REM FAKULTAET 
19: INPUT “N=";N 
20: F=1 
30: FORI=1TON 
40:F=F*l 
50:NEXTI 
69: PRINT “N!="; F 
78: END 


Aufgabe 22: 

1:REM INTEGRALSINUS 
18: INPUT X ="';X 

20: INPUT "N=";N 
38:5=X 

40:A=X 

50:Y=X*X 

60: FORI=1TON 
70:A=A»Y+(2*I-1)/((2*I+1)*(2*I+1)*2*D) 
80:5=S+tA 

98: NEXTI 

180: PRINT X,S 

118: END 
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Für verschiedene Werte von N und X erhält man 








9.444444 E - 01| 9.460830E - 01 | 9.460830E - 01 | 9.460830 E - 01 
— 1.944444444 | 1.536289236 1.549931265 1.549931246 
-45.55555556 | - 83.889605 1.658344361 1.658347594 






















Man erkennt an diesen Zahlen, daß die Potenzreihe für kleine X schnell, für 
große X dagegen langsam konvergiert. 


Aufgabe 23: 


1: REM NEWTONVERFAHREN 
18: INPUT “STARTWERT=";X 
20: INPUT "ITERATIONSSCHRITTE <="; N 
30: INPUT “'GENAUIGKEIT=";D 
48:FORI=1TON 
50: GOSUB 200 
60:IF Z=OTHEN 110 
70:E=Y/Z 
80:X=X-E 
90:IFABSE <=DTHEN 139 
100:NEXTI 
118: PRINT "SCHLECHTER START” 
120: GOTO 140 
130: PRINT “LOESUNG=";X 
140: END 
199: REM AUSWERTUNG FUNKTION UND ABLEITUNG 
200: 


250: RETURN 


Aufgabe 24: Das Unterprogramm lautet 


199: REM AUSWERTUNG FUNKTION UND ABLEITUNG 
200:Y=C(M) 

210:Z=Y 

220: FOR J=M-1 TO 1STEP-1 

230:Y=Y*xX+C(J) 

240:2Z=Z*xX+Y 

250: NEXTJ 

260:Y=Y+*xX+c(0) 

278: RETURN 
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Dieses Unterprogramm kann in dieser Gestalt zum Programm aus Aufgabe 23 
hinzugefügt werden. Wichtig dabei ist, daß die Laufvariable in Zeile 22® nicht 
L ist, weil der Unterprogrammaufruf GOSUB 29 in Zeile 50 aus einer Lauf- 
anweisung mit der Laufvariablen I heraus erfolgt. Das Hauptprogramm bedarf 
aber noch einer Ergänzung durch Anweisungen zur Vereinbarung und Eingabe 
des Polynomgrads m und der Koeffizienten ag, ..., am (C (®), ..., C(M)): 


1:REM NEWTONVERFAHREN FÜR POLYNOME 
:INPUT “POLYNOMGRAD=";M 
:DIMC(M) 
:WAIT 3® 
:FORJ=8 TOM 
:PRINT “C";J;"=" 
:INPUT C(J) 
9:NEXTJ 
10:WAIT 
15:1NPUT "STARTWERT=";X 
Um nicht mit jedem neuen Startwert auch alle Koeffizienten wieder neu mit 
eingeben zu müssen, ändern wir Zeile 140 zu 148:GOTO 15. 
Wir testen das Programm am Polynom p (x) =2-4x - 7x2 +3x? mit jeweils 
maximal 1® Iterationsschritten und der Genauigkeit D= 1E - 9 für verschie- 
dene Startwerte zwischen — 1 und + 3. Es ergeben sich die folgenden Werte: 


NO PWMN 


- 7.320508075E — 01 
3.333333333E — 01 
3.333333333E — 01 
2.732050808 


2.732050808 

- 7.320508076E — 01 
2.732050808 

- 7.320508076E - 01 

SCHLECHTER STARTWERT 
3.333333333E — 01 





Die Gleichung p (x) = ® besitzt die drei verschiedenen Lösungen 


1/3 = 3.333333333E — 01 
1-73 = - 7.320508076E - 1 
1+,/3 = 2.732050808 


Je nach Startwert steuert das Newtonverfahren die eine oder andere Lösung 
an. 
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Aufgabe 25: 


1: REM TEXTINVERSION 
10: INPUT "TEXT=";A$ 
20:B$=" 

30: L=LENA$ 

46: FORI=1TOL 

50:B$= MID $(A$,1,1)+B$ 
60: NEXTI 

70:PRINTB$ 

80: END 


Aufgabe 26: 
1:REM REGULA FALSI 
10:1NPUT STARTWERKE X0="';U 
15: INPUT *xX1=";V 
20: INPUT "SCHRITTZAHL <="; N 
30: INPUT “GENAUIGKEIT=";D 
40:1=1 
50:X=U:GOSUB 500:W=Y 
60:X= V:GOSUB 500:Z2=Y 
78:IF W=Z THEN 120 
80:E=(V-U)*Z/(Z-W) 
99:U=V:W=Z:V=V-E 
180:1F ABS E<=D PRINT “LOESUNG="; V:GOTO 130 
118:IFI<NLETI=I+1;GOTO 60 
120: PRINT “SCHLECHTER START“ 
130: END 


5086:Y=COSX-X 
510: RETURN 
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Sachwortverzeichnis 


Alphabetische Namensliste 82 Gauß-Verfahren 71 
Anzeigefeld 1 Goldener Schnitt 60 
Arithmetische Anweisung 13 GOSUB 59,88 
Arithmetischer Ausdruck 7 GOTO 42,88 
Ausgabeanweisung 30 GRAD 1,39 
Bedingte Anweisung 85 Horner Schema 76 
BEEP 39 
Betriebsart 1 IF 45 
38 INPUT 29 

INPUT # 102 
2 [ins] 18 
2 Integration, numerische 54 
CLEAR 13, 39 
CLOAD 98 Jahreszins, effektiver 50 
CLOAD? 97 
CONT 38 Kommentare 39 
CSAVE 97 Kreditaufnahme 49 
Cursor 2 

Laufanweisung 50 
DEG 1,39 Leerer Text 78 
18 Leerzeichen 3 
Differentialgleichungen 93 LEFT$ 83 
DIM 69 LEN 84 
Dokumentation von Programmen 96 LET 85 

Lexikalische Ordnung 81 
Eingabeanweisung 29 Lineare Interpolation 27 
Eingaberegister 2 Lineares Gleichungssystem 68 
Elektrische Netzwerke 68 LLIST 91 
END 25 LPRINT 92 
ENTER| 1 

Mantisse 3 
EXP| 4 
u Marke 88 
Fehler, absoluter 19 er 70 
Fehler, relativer 19 MEM 2 
Fehlerfortpflanzung 20 MERGE 99 

MID$ 83 


Fehlerkorrektur 17,35 
Fehlermeldung 16, 36 
Feld 70 
Feldvereinbarung 69 


Minimum einer Funktion 43,59 
Mittelpunktsformel 55 


Flußdiagramm 46 NEW 24 
Newton-Verfahren 48 
FOR 51 
NEXT 51 


Formatanweisung 31 
Funktionen 10 
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Normierte Gleitpunktform 4 


Overflow 4 


PAUSE 34 
Pivotsuche 75 
PRINT 30 

PRINT # 101 
Priorität 7 
Programmname 89 
Programmspeicher 24 
Programmstart 24 
Programmzeile 25, 84 


Quadratische Gleichung 20,46 


RAD 1,39 
Räuber-Beute-Modell 95 
Rechengenauigkeit 18 
Regula falsi 86 
Reihenberechnung 58 
REM 39 

Reservable Key 40 
RESERVE-Ausdruck 40 
RETURN 59 

RIGHT$ 83 

RUN 24,39 
Runge-Kutta-Verfahren 93 


Simpsonformel 55 


[SHiFT] 2 
[spc] 3 


Speicherung von Programmen 96 


Sprunganweisung 42 


Sprunganweisung, bedingte 45 
STEP 51 
STOP 38 


Textausdruck 79, 84 
Textfeld 79 
Textfunktionen 83 
Textkonstanten 77 
Textvariablen 15, 78 
Textverarbeitung 77 
Textvergleich 81 
Textverknüpfung 78 
Textzuweisung 78,85 
THEN 45 
Trapezformel 55 
TROFF 38 

TRON 38 


Unterprogramm 58 
USING 31 


Variable 13 
Variable, indizierte 69 
Vergleich 45 


WAIT 33 
Wertetabelle 51 
Wertzuweisung 13,85 


Zahlen 3 
Zeilennummer 24 
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